Ответы на вопрос:
Var inum: integer; begin readln(inum); writeln((inum mod 10) + (inum div 100 mod 10) + (inum div 100)); end.
Популярно: Информатика
-
Найдите ошибки в программе: PSET (100, 500) - (600, 400), BF LINE (250,...
YSPESHNUY12.06.2023 13:55 -
Продолжите предложение. Для наглядного представления разных числовых данных...
7Настася706.04.2020 05:56 -
Сколько существует саздание призинтацый...
gelya1212124.08.2021 06:46 -
Паскаль. Массив с условиями...
sonsonms23.07.2020 07:25 -
Постройте таблицу истинности...
Anyazolotiya06.05.2021 21:26 -
Определи, может ли существовать такой IP-адрес...
Aluniy09.06.2020 12:38 -
Не понял, ребят выручайте Нарисуйте таблиц истинности для следующих выражений...
mushicz15.06.2021 20:00 -
ДАЮ 100Б !!! Определенное выражение, которое имеет один или несколько аргументов...
Bened03.05.2022 10:51 -
Операция: получение целого остатка Обозначение: 1.∃ 2.∧ 3.mod 4.¬ Тип результата:...
pasha27613.06.2023 09:44 -
решить! Составьте программу по И ещё есть продолжение две задачи... ...
grskdarina18.04.2022 05:05