Question

Составьте программу, которая выводит на экран числа кратные 2 и 7 в диапазоне от 2 до 120 ПОЖАЛУЙСТА ПОБЫСТРЕЙ

Answer 1

Ответ:

var i:integer;

begin

for i:=2 to 120 do

if (i mod 2 = 0) and (i mod 7 = 0) then write (i,' ')

end.