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

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

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

1

Ответы и объяснения

2013-06-04T11:55:55+00:00

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.