tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Вводится трёхзначное число. найдите
Вводится трёхзначное число. найдите и выведите сумму его цифр. ответ прикрепите в виде файла в среде pascalabc.
ivanovaa750
2 02.06.2019 17:50
0
Ответы
nikolesmit
03.07.2020 11:58
Var a:integer;
begin
read (a);
if (a mod 10<1) or (a div 100 < 1) or ((a mod 100) div 10 < 1) or (a div 1000 >= 1) then
begin
writeln ('Неверный ввод');
halt;
end else
begin
writeln ((a mod 10) + (a div 100) + ((a mod 100) div 10));
end
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
5polinka
13.01.2022 09:33
Что представляет собой R, полученное в результате выполнения алгоритма (R = 1: N = 10: i = 2: пока i = N: если x(i) 0 тогда R = R × x(i): i= i + 2: вывод R), по отношению к элементам...
airflash1372
13.01.2022 09:15
С какого ключевого слова осуществляется явное определение типа переменной?...
ишришощизть
13.01.2022 09:02
Составить блок-схему алгоритма и программу на языке Паскаль для вычисления значения функций y(x) = 2(х + |(x - 1)2|). Ввести программу, вычислить значение функции и проверить...
elkenakate1221
17.05.2019 22:30
Написать программу в паскале,подсчитывающую сколько слов в заданной фразе(предложении)...
kushtueva
07.05.2021 11:31
, сделать надо все в паскале ...
333ч
07.05.2021 11:31
по информатике. надо пример на каждый вид списка...
bogdanshik007
13.07.2019 10:50
Что такое: проприетарные лицензии копилефт электронная подпись...
slavioglokolea77
12.05.2021 21:35
Напишите виды авторских прав...
Agent345
22.12.2021 01:20
Решите систему уравнений: (во вложении) ,...
Кеккуккекукек
22.12.2021 01:20
7 КЛАСС составить с каждым оборотом предложения, выделить главные слова и обороты подчеркнуть, одно деепричастие - морфологический разбор ( на выбор из любого предложения)...
Популярные вопросы
Поясніть закономірність в періодах для а)зміни властивостей елемента б)змінни...
3
Кричу о Из литературы привести примеры чередующихся согласных за чистую душу...
3
Сила струму в провіднику, через який приєднують до мережі електричний чайник,...
2
5. Визначте напрямок за до азимута із точки 1 до точки 2 та відстань між ними...
3
Преобразуйте в произведения данное выражение: sin(α+π/4)+sin(α−π/4)...
3
Напишите быстрее 2 первых предложения...
2
При прокаливании 200 г карбоната магния получили 33,6 л углекислого газа....
3
Оптимальне середовище для високої активності шлункових ферментів а. лужна....
1
Заполните таблицу «Открытия российских учёных в первой полови- не XIX в.»...
3
Точка движения по закону x(t)=2t^3-3t.Чему равна скорость в момент времени...
2
begin
read (a);
if (a mod 10<1) or (a div 100 < 1) or ((a mod 100) div 10 < 1) or (a div 1000 >= 1) then
begin
writeln ('Неверный ввод');
halt;
end else
begin
writeln ((a mod 10) + (a div 100) + ((a mod 100) div 10));
end
end.