Срочно помогите!
1)с помощью цикла repeat вывести слово информатика 5 раз
2)с помощью цикла while вывести слово информатика 5 раз
1)
var i:integer;
begin
i:= 0;
repeat
writeln("информатика");
i:=i+1
until i <> 5;
end.
2)
var i:integer;
begin
i:= 0;
while(i < 5) do begin
writeln("информатика");
i := i+1;
end;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
