Question

Помогите с написанием программ! Вывести 5 целых чисе из экран. (написать преграмму решения с помошью трёз видов шикла на Рacal)

Answer 1

program z1;

var i : integer;

begin

for i:= 1 to 5 do

writeln(i);

end.

-------------------------------

program z2;

var i : integer;

begin

i:=0;

while i<5 do

begin

i:=i+1;

writeln(i);

end;

end.

----------------------------------------------

program z3;

var i : integer;

begin

i:=0;

repeat

i:=i+1;

writeln(i);

until i>=5;

end.