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

1

Ответы и объяснения

2012-10-25T23:44:07+04:00

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