Question

Составьте программу вычисления кол-ва трехзначных чисел, у которых сумма цифр является четным числом.
Помогите пожалуйста, а то Паскаль не понимаю, особенно такие задачи... :с

Answer 1

var a,b,c,e:integer;
begin
e:=0; 
for a:=100 to 999 do begin
  c:=a;
  while (c<>0) do begin
   b:=c mod 10;
   e:=b+e;
      c:=c div 10;
  end;
   if (e mod 2 = 0) then writeln(a);
   e:=0;
 end;
end.