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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.