помогитеее срочно)
определите и выведите на экран количество натуральных чисел, меньших 1000 и делящихся на 5 и 7 одновременно.
составить надо программу на паскале
Ответы на вопрос
Ответил Mishka28
0
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.
Новые вопросы