Турбо-паскаль Помогите написать процедуру, котороя бы выполняла роль…

Question

46

Турбо-паскаль Помогите написать процедуру, котороя бы выполняла роль процедурыclreol

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

nadisha · Accepted Answer

41

nadisha

22 апреля 2023

uses crt; var x,y: byte; var i: integer; procedure clreol2; begin x: =wherex; y: =wherey; for i: =x to windmaxx do begin gotoxy (i,y); write ('); end; gotoxy (x,y); end; begin clrscr; gotoxy (5,12); write ('TEST'); gotoxy (5,12); delay (500); clreol2; readln; end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: