Написать процедуру, выводящую на экран фразу «Добрый день!» заданное количество раз. - Pascal ABC

Формулировка задачи:

Написать процедуру, выводящую на экран фразу «Добрый день!» заданное количество раз.

Код к задаче: «Написать процедуру, выводящую на экран фразу «Добрый день!» заданное количество раз. - Pascal ABC»

textual
uses crt;
procedure p(n:integer);
var i:integer;
begin
for i:=1 to n do
 begin
  write('Добрый день!    ');
  if i mod 5=0 then writeln
 end;
end;
var n:integer;
begin
write('n=');
read(n);
clrscr;
p(n);
end.

6   голосов, оценка 3.833 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы