Информатика, вопрос задал 5Masya55 , 1 год назад

Составить процедуру, "рисующую" на экране горизонтальную линию из 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: исправил
Новые вопросы