Question

Составить 3 программы в цикле for,repeat и while вывести числа на экран от 1 до 10 в столбик !!!Срочно !!! Нужно на завтра пожалуйста !!!

Answer 1

1.
var i:integer;
begin
for i:=1 to 10 do
writeln(i)
end.

2.
var i:integer;
begin
i:=1;
while i<=10 do
begin
writeln(i);
i:=i+1;
end
end.

3.
var i:integer;
begin
i:=1;
repeat
writeln(i);
i:=i+1;
until i>10
end.