Сколько раз напечатается" ПРИВЕТ"?
program n1;
var n:integer;
begin
n:=0;
while n<=5 do
Begin
writeln ('Привет') ;
n:n+1;
end;
end.
​

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку