Question

ПАСКАЛЬ! определить и вывести на экран количество натуральных чисел, меньших 1000 делящихся на 5 и 7 одновременно

Answer 1

Var i,k:integer;
begin
k:=0;
for i:=1 to 1000 do if ((i mod 5 = 0) and ((i mod 7 = 0)) then k:=k+1;
writeln("Количество натуральных чисел до 1000, которые делятся на 5 и 7 без остатка: ",k);
end.