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

1

Ответы и объяснения

2014-02-22T15:14:42+00:00
Var a,x:integer;
begin
x:=0;
for a:=0 to 1000 do
if (a mod 5=0) and (a mod 7=0) then
x:=x+1;
writeln(x);
end.