Question

Составьте программу вычисления количества трехзначных чисел у которых Сумма цифр является четным числом

Answer 1

var i,a,b,c,kol:integer;
 begin
for i:=100 to 900 
 do begin
 a:=i div 100;
 b:= (i div 10) mod 10;
 c:= i mod 10;
 if (a+b+c) mod 2=0
  then kol+=1;
end;
writeln(kol);
end.

Answer 2

ой только не 900, а 999, извини

Answer 3

окей

Answer 4

в цикле

Answer 5

аа