1)с цикла repeat вывести слово информатика 5 раз 2)с цикла while вывести слово информатика 5 раз

dradya dradya    3   22.05.2019 05:20    0

Ответы
Динара010 Динара010  17.06.2020 07:31

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.

 

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика