Определите и выведите на экран кол-во натуральных чисел меньших 100 и делящихся на 5 и 7 одновременно
Определите и выведите на экран кол-во натуральных чисел меньших 100 и делящихся на 5 и 7 одновременно
Гость
Ответ(ы) на вопрос:
Гостьprogram z1;
var k,i:integer;
begin
k:=0;
for i:=99 downto 5 do
if (i mod 5=0)and(i mod 7=0) then
k:=k+1;
writeln (k);
end.
Не нашли ответ?
Похожие вопросы