Код программы в PASCAL, СРОЧНО! Условие: Вводятся 3 натуральных числа. Найти сумму цифр...

Question

Код программы в PASCAL, СРОЧНО! Условие: Вводятся 3 натуральных числа. Найти сумму цифр каждого из них (создать функцию для нахождения суммы цифр произвольного натурального числа).

Answer 1

Program wtf;
var a,b,c,S:integer;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
writeln('Введите c');
readln(c);
S:=a+b+c;
writeln('Сумма цифр= ',S);
end.