Составьте программу вычисления количества трехзначных чисел у которых Сумма цифр является четным числом
Answers & Comments
sasha31072002
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.
Answers & Comments
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.