var
n: longint;
k,sum: integer;
begin
write ('n = ');
readln(n);
k: =0;
sum: =0;
while n < > 0 do
begin
if (n mod 10) mod 2 = 0 then
begin
k: =k+1;
sum: =sum+(n mod 10);
end;
n: =n div 10;
end;
writeln ('summa: ',sum);
writeln ('kol-vo: ',k);
readln;
end.
Поделитесь своими знаниями, ответьте на вопрос:
Решите уравнение: 4x(в квадрате)+20x=0