Составьте программу вычисления количеств трёхзначных чисел, у которых сумма цифр является чётным числом.
5-9 класс
|
var
i1, i2, i3: 1..9; //Цифры трехзначного числа
i, n: integer; //n - количество трехзначных чисел, у которых ...
begin
n:= 0; //Обнуляем счетчик
for i:= 100 to 999 do //Перебираем все трехзначные числа и считаем количество
begin
i1:= i div 100;
i2:= (i mod 100) div 10;
i3:= i mod 10;
if (i1 + i2 + i3) mod 2 = 0 then n:= n + 1;
end;
writeln('Количество трехзначных чисел, у которых сумма цифр является четным числом равна: ', n); //Выводим количество
end.
Если все правильно, отметь решение как лучшее)
Другие вопросы из категории
К завтра надо, срочно!!!
Заранее спасибо!
какое минимальное количество бит необходимо для кодирования двоичным кодом 150 квартирного дома
а.Написать письмо.
б.Записать компьютерную игру
в.Сделать фотоизображение
г.Записать исполнение песни
д.Записать ноты песни
информации, занимающей весь экран монитора, в кодировке КОИ-8
вектор; ,Заранее спасибо
Читайте также
количества трехзначных чисел, у которых сумма цифр является чётным числом.
ОЧЕНЬ СРОЧНО!!!
2.Составьте программу вычисления количества трёхзначных чисел палиндромов ( чисел, которые читаются одинаково слева направо и справа налево).
3.Найти двухзначные числа, которые делятся на сумму своих цифр
4.Составьте программу вывода количества трёхзначных чисел, у которых цифры упорядочены строго по убыванию.
РЕБЯТА СРОЧНО!!!!!!!!!!!