Ответы на вопрос:
Var a,s: integer; begin readln(a); s: =(a div 100) + ((a div 10) mod 10) + (a mod 10); writeln(s); end.
Популярно: Информатика
-
Сообщение содержит 200 символов .сколько символов в алфавите ,если все...
aliina00009.03.2023 13:02 -
Вставте пропущенные слова: 1. изображения фотографического качества не...
adonda99414.12.2021 00:55 -
виды информационных моделей* а)образные, смешанные,знаковые б) компьютерные,...
valdi5p0ch2218.09.2020 07:44 -
Б) Составьте програму для вычисления количества четных чисел от 1 до 20....
максим150388990024.01.2023 03:07 -
Тіло циклу для обчислення значень функцій f (x) = x^4, на відрізку [-5,5]...
alexey122298707.06.2022 04:41 -
Що буде надруковане в результаті виконання фрагменту програми, якщо n=8?...
Alchimick16.04.2021 02:14 -
Надо определить минимальный элемент массива с и его порядковый номер....
gavrikovakateri05.09.2022 11:23 -
Вкодировке кои-8 каждый символ кодируется 8 расскажите подробно как решать...
Ydalxa53430.04.2022 13:38 -
Пользователь вводит 13 чисел, определите сколько раз он ввел число 8....
ADRELE25.08.2022 23:08 -
с тестом, ЛИНЕЙНЫЕ АЛГОРИТМЫ, 8 КЛАСС....
Ksenia17200013er18.04.2020 06:03