Срочно помогите! 1)с помощью цикла repeat вывести слово информатика 5 раз 2)с помощью цикла while вывести слово информатика 5 раз

Question

Срочно помогите! 1)с помощью цикла repeat вывести слово информатика 5 раз 2)с помощью цикла while вывести слово информатика 5 раз

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.