Question

ДАМ 50 БАЛЛОВ
Напишите программу в паскале, которая найдёт все числа от 1961 до 9611 которые делятся на 42 без остатка, и не делятся на 4,5,13.

Answer 1

Объяснение:

var x,y,f,g:integer;

begin

 for var i:=1961 to 9611 do

   if ((i mod 42=0) and (i mod 4<>0) and (i mod 5 <>0) and (i mod 13<>0)) then

     writeln (i);

end.