Ответы
Ответ дал:
0
1я задача:
var
N, sum1, sum2, res: integer;
begin
readln(N);
sum1 := N mod 10;
N := N div 10;
while N > 0 do begin
if N div 10 = 0 then
sum1 := sum1 + N
else
sum2 := sum2 + N mod 10;
N := N div 10;
end;
writeln(max(sum1,sum2),min(sum1,sum2));
end.
Вас заинтересует
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад