найти количество целых положительных чисел, больших 100, меньших 500, кратных 12 и заканчивающихся на 4 или 6
Ответы
Ответ дал:
0
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
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
Похожие вопросы
2 года назад
2 года назад
7 лет назад
9 лет назад
9 лет назад