Задача 7.2. Надрукувати на екрані парні числа від 2 до 12.

1 спосіб

program 7_2_1;
var k:integer;
begin k:=0;
 while k<=10 do
 begin
     k:=k+2;
 write(k:3)
 end
end. 

Результати роботи програми: 2 4 6 8 10 12

2 спосіб

Program 7_2_2;
var k:integer;
begin k:=2;
 repeat
 Write(k);
     k:=k+2;
 until k>12
End. 
 

Завдання 7.2. Надрукувати на екрані непарні числа від 31 до 122 (двома способами).