Найти количество целых положительных чисел, больших 100, меньших 500, кратных 12 и заканчивающихся на 4 или 6
Найти количество целых положительных чисел, больших 100, меньших 500, кратных 12 и заканчивающихся на 4 или 6
Гость
Ответ(ы) на вопрос:
Гостьvar k,i:integer;
begin
k:=0;
for i:=101 to 499 do
if (i mod 12 = 0)and((i mod 10 = 4)or(i mod 10 = 6))
then k:=k+1;
writeln('k = ',k);
end.
Результат:
k = 12
Не нашли ответ?
Похожие вопросы