Найти кол-во 3 х-значных чисел у которых сумма цифр является чётным числом? pascal

Question

Информатика

Рая

20 июля, 13:34

Найти кол-во 3 х-значных чисел у которых сумма цифр является чётным числом? pascal

+5

Ответы (1)

Знаете ответ?

Каллистрат · Answer 1

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. Нравится решение? Отметь как лучшее!