Александр Юшкевич
Ученик
(118)
9 лет назад
LOL ну лови
program ALLES_KLAR;
var
n, i, sum :integer;
j: integer;
begin
writeln('Введите число'); readln(n);
while n <> 0 do begin
j := n mod 10;
if j mod 2 <> 0 then begin
sum:= sum + j;
end;
n:= n div 10;
end;
writeln(sum);
end.
Для кого это не составит труда, помогите!!! !