помогитеее срочно)определите и выведите ** экран количество натуральных чисел, меньших...

Question

помогитеее срочно)
определите и выведите на экран количество натуральных чисел, меньших 1000 и делящихся на 5 и 7 одновременно.
составить надо программу на паскале

Answer 1

var

i,k:integer;

begin

k:=0;

for i:=35 to 1000 do 

if (i mod 5 = 0) and (i mod 7 = 0) then k:=k+1;

writeln (k);

end.