PASCAL. СРОЧНО! Вводится 3 натуральны числа. Найти сумму цифр каждого из них (создать функцию для нахождения суммы цифр произвольного натурального числа )
1-4 класс
|
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.
Другие вопросы из категории
Читайте также
больше 100, то замените каждое из них меньшим и выведите результаты на экран. Если первое число положительное, а второе отрицательное, то уменьшите их в два раза и выведите результаты. Иначе, найдите и выведите среднее арифметическое этих чисел.
входные данные
-------------------------
вводится одно число (от 100 до 999)
выходные данные
-------------------------
выводится одно число - сумма цифр
примеры
--------------------------------------------------------------
| входные данные | выходные данные |
| а=345 | s=12 |
--------------------------------------------------------------
345 сумма цифр12.
Срочно пожалуйста !!!!
Решить задачи.
1. Дано трёхзначное число. Определить, сколько раз в нём встречается цифра 3.
2. Дано натуральное число. Получить все его делители и найти их сумму.