Question

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

Answer 1

Ответ:

Процедура для рисования горизонтальной линии из 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.