Предмет: Информатика, автор: 5Masya55

Составить процедуру, "рисующую" на экране горизонтальную линию из 80
символов "*"
программа на паскаль abc

Ответы

Автор ответа: pupkinll2016
0

Ответ:

Процедура для рисования горизонтальной линии из 80 символов:

program draw_line;

procedure draw_horizontal_line();

var

i: integer;

begin

for i := 1 to 80 do

begin

write('*');

end;

writeln;

end;

begin

draw_horizontal_line();

end.


5Masya55: программа не работает
pupkinll2016: исправил
Похожие вопросы
Предмет: Математика, автор: americanbabe
Предмет: Математика, автор: cacawada