ПАСКАЛЬ! определить и вывести на экран количество натуральных чисел, меньших 1000 делящихся на 5 и 7 одновременно
ПАСКАЛЬ!
определить и вывести на экран количество натуральных чисел, меньших 1000 делящихся на 5 и 7 одновременно
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы