Информатика, опубликовано 2018-08-22 20:59:01 by Гость
ПАСКАЛЬ! определить и вывести на экран количество натуральных чисел, меньших 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на