Составьте программу вычисления количества трехзначных чисел , у которых сумма цифр является четным числом,
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.Если все правильно, отметь решение как лучшее)
Другие вопросы из категории
2)Выясните происхождение названия языка программирования Паскаль
Читайте также
количества трехзначных чисел, у которых сумма цифр является чётным числом.
ОЧЕНЬ СРОЧНО!!!
2.Составьте программу вычисления количества трёхзначных чисел палиндромов ( чисел, которые читаются одинаково слева направо и справа налево).
3.Найти двухзначные числа, которые делятся на сумму своих цифр
4.Составьте программу вывода количества трёхзначных чисел, у которых цифры упорядочены строго по убыванию.
РЕБЯТА СРОЧНО!!!!!!!!!!!