найти кол-во 3х-значных чисел у которых сумма цифр является чётным числом? pascal
5-9 класс
|
var
i, a, b,c, s :integer;
begin
s:= 0;
for i:=100 to 999 do
begin
a:= i div 100;
b:= (i - a * 100) div 10;
c:= i mod 10;
if ((a + b + c) div 2 = 0) then
s:= s + 1;
end;
writeln (s);
end.
На компе нету паскаля, если что-то неработает пиши
P.S. Нравится решение ? Отметь как лучшее!
Другие вопросы из категории
а) Табличка с номером дома
б) Почтовая открытка
в)Билет в поезд
г)Газета
д) Диск со сборником мультфильмов
Задание с развернутым ответом. Заполните таблицу, содержащую основные характеристики устройств долговременной памяти.
Читайте также
количества трехзначных чисел, у которых сумма цифр является чётным числом.
ОЧЕНЬ СРОЧНО!!!
2.Составьте программу вычисления количества трёхзначных чисел палиндромов ( чисел, которые читаются одинаково слева направо и справа налево).
3.Найти двухзначные числа, которые делятся на сумму своих цифр
4.Составьте программу вывода количества трёхзначных чисел, у которых цифры упорядочены строго по убыванию.
РЕБЯТА СРОЧНО!!!!!!!!!!!