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

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

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

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

№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

№9. Вывод n первых чисел Фибоначчи

begin
  write('Введите целое число n (n > 1): ');
  var n : integer;
  readln(n);
  var a := 1;
  var b := 1;
  write(1, ' ', 1, ' ');
  for var i := 3 to n do
  begin
    var c := a + b;
    write(c, ' ');
    a := b;
    b := c;
  end;
end.

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