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

Question

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

Comments

на Паскале?

---

да

---

на паскале

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.

Comments

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

---

окей

---

в цикле