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

manzer95 manzer95    1   21.05.2019 17:50    3

Ответы
katyadrogochinskaya katyadrogochinskaya  16.06.2020 14:09

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика