Стандартные задачи на циклы

Простейшие алгоритмы

(в разработке)

Рекуррентные соотношения

№7. Вывод 10 первых степеней двойки

  begin
    var x := 2;
    for var i := 1 to 10 do
    begin
      writeln(i:2,x:5);
      x *= 2;
    end;
  end.

Ссылка на алгоритм в среде WDE

№8. Вывод всех двухзначных чисел, кратных 5

  begin
    var x := 10;
    while x < 100 do
    begin
      writeln(x:3);
      x += 5;
    end;
  end.

Ссылка на алгоритм в среде WDE