Найти количество натуральных чисел в диапазоне от 50 до 99 кратные 3 и 7
Найти количество натуральных чисел в диапазоне от 50 до 99 кратные 3 и 7
Гость
Ответ(ы) на вопрос:
Гостьprogram z7;
var i,w:integer;
begin
w:=0;
for i:=50 to 99 do begin
if (i mod 3 = 0) and (i mod 7 = 0) then
w:=w+1;
end;
writeln(w);
end.
Не нашли ответ?
Похожие вопросы