Question

Срочно помогите!

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

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

Answer 1

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.