Написать программу в Паскаль абс по теме функции.
задача: найти сумму цифр трех чисел.
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
function SoD(n:int64):integer;
begin
Result:=0;
while n>0 do begin
Result+=n mod 10;
n:=n div 10
end
end;
begin
var a:=ReadArrInteger(Введите три натуральных числа:,3);
Write(Суммы цифр чисел: ); a.Select(x->SoD(x)).Println;
Writeln(Общая сумма цифр всех чисел: ,a.Select(x->SoD(x)).Sum)
end.
Тестовое решение:
Введите три натуральных числа: 56325 23131 784545223
Суммы цифр чисел: 21 10 40
Общая сумма цифр всех чисел: 71
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
