Статистика
Всего в нашей базе более 4 327 660 вопросов и 6 445 973 ответов!

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

1-4 класс

нвк 31 июля 2014 г., 22:10:44 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Bimax2w1
31 июля 2014 г., 22:56:47 (9 лет назад)

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.

Ответить

Читайте также

Составьте программу для решения следующей задачи. Введите с клавиатуры два числа: N и M. Если оба числа

больше 100, то замените каждое из них меньшим и выведите результаты на экран. Если первое число положительное, а второе отрицательное, то уменьшите их в два раза и выведите результаты. Иначе, найдите и выведите среднее арифметическое этих чисел.

вводится 3-значное число. найти сумму его цифр.

входные данные
-------------------------
вводится одно число (от 100 до 999)

выходные данные
-------------------------
выводится одно число - сумма цифр

примеры
--------------------------------------------------------------
| входные данные | выходные данные |
| а=345 | s=12 |
--------------------------------------------------------------

Паскаль

Решить задачи.
1. Дано трёхзначное число. Определить, сколько раз в нём встречается цифра 3.
2. Дано натуральное число. Получить все его делители и найти их сумму.



Вы находитесь на странице вопроса "PASCAL. СРОЧНО! Вводится 3 натуральны числа. Найти сумму цифр каждого из них (создать функцию для нахождения суммы цифр произвольного натурального числа )", категории "информатика". Данный вопрос относится к разделу "1-4" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.