Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Парень1231
02.07.2020 23:11 •
Информатика
Код программы в pascal, ! условие: вводятся 3 натуральных числа. найти сумму цифр каждого из них (создать функцию для нахождения суммы цифр произвольного натурального числа).
Показать ответ
Ответ:
lboik
13.07.2020 16:50
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.
0,0
(0 оценок)
Популярные вопросы: Информатика
Gelmi
02.01.2022 07:40
На числовой прямой даны три отрезка: p = [10, 40], q = [5, 15] и r=[35,50]. выберите такой отрезок a, что формула( (x принадлежит p) → (x принадлежитq) ) \/ ( (x принадлежит...
гтто5
19.03.2022 02:22
Составить программы вывода на экран всех чисел из промежутка от 1 до n, которые делятся на 7 и 5. Решить через три цикла - пока, до и for (т.е. будет три решения)....
anastasiyachevh
25.08.2020 23:42
Какой объём памяти займёт приведённый ниже текст: если известно что в нём используется кодировочная таблица UNICODE: Лес - точно терем расписной....
pawlomogischoxigx1
23.05.2022 19:50
Даны три действительных числа. возвести в квадрат те из них, значения которых неотрицательны....
frnkiero1133324
31.01.2020 14:24
Вдва столбца электронной таблицы введите 5 четных и 5 нечетных чисел (соответственно 1 и 2 столбец), в третьем столбце просчитайте посредством формул утроенную сумму...
kozinasofia2006
01.08.2020 00:41
Пермяк мама и мы разделить на части...
bilainфом
07.02.2021 14:13
1. Вы прочитали ряд биографических и литературно-критиче- ских материалов о писателе; выполнили задания, которые по- могли вам охарактеризовать не только тему, но и...
KarinkaChernov
15.04.2023 07:24
Вычислить сумму тех членов арифметической прогрессии: (an)=1, 4, 7, 10, …, которые меньше заданного числа b (b 1) Паскаль...
vasyazabelin
23.03.2020 23:17
Упростить выражение (корень из 10 +корень из 8) ^2 =...
mamakarina
09.12.2022 14:30
Исправьте ошибки: Эти явления искусства очень ярки, своеобразны и новаторски. Варенье у тебя получилось как будто даже немного слаще. Как показала проверка, факты,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.