Урок 12.2 Задача 2

Урок 12.2 Задача 2:

Напишите программу, которая выводит на экран ряд чисел с помощью цикла for:

	
1 5 9 13 17 21 25 29 33 37 41 45

var i, n: integer; // i - счетчик цикла for, n - еще один счетчик
begin
  n := 1; //начальное значение второго счетчика
  for i:=1 to 12 do  //ставим верхнюю границу основного счетчика по количеству чисел, которые нужно вывести на экран
  begin
    write(n, ' '); //выводим на экран значения второго счетчика
    n := n+4; //второй счетчик увеличивается на 4
  end;
  readln();
end.

Вывод в консоли:

1 5 9 13 17 21 25 29 33 37 41 45

Или так:

var i: integer;
begin
  for i:=0 to 45 do
  if (i mod 4 = 0) then //условие, по которому на первом витке получаем ноль, далее - каждое четвертое число
    write(i+1, ' ');    // выводим на экран полученное число плюс один
readln();
end.

Вывод в консоли:

1 5 9 13 17 21 25 29 33 37 41 45