Задача 2. Вивід послідовності 1 3 5 7 9
Організація циклів.
Задача 1. Виведення послідовності чисел 1 2 3 4 5 і 5 4 3 2 1
| За допомогою for | За допомогою while | За допомогою repeat |
 var i:integer;
begin
 Fori:=1 to5 do
write(i,' ');
writeln;
fori:=5 down to1 do
write(i,' ');
writeln;
writeln;
end.
|  var i:integer;
begin
i:=1;
whilei<=5 do
 begin
write(i,' ');
i:= i +1;
end;
writeln;
i:=5;
whilei>=1 do
begin
write(i,' ');
i:=i-1;
end;
writeln;
writeln;
end.
| var i:integer; begin i:=1; repeat write(i,' '); i:=i+1; untili>5; writeln; i:=5; repeat write(i,' '); i:=i-1; untili<1; writeln; end. |
Задача 2. Вивід послідовності 1 3 5 7 9
| За допомогою for і проміжної змінної | За допомогою while | За допомогою repeat |
| Vari,x:integer; begin x:=1; fori:=1 to5 do begin write(x,' '); x:= x +2; end; writeln; end. |  Vari,x:integer;
begin
x:=1;while x<10 do  beginwrite(x,' ');x:= x +2;end;writeln; end.
| Vari,x:integer;
begin
x:=1;repeat  write(x,' ');x:= x +2;until x>=10;end. |