Вопрос по информатике:
Вводится трёхзначное число. Найдите и выведите сумму его цифр. Ответ прикрепите в виде файла в среде PascalABC.
- 02.05.2018 20:23
- Информатика
- remove_red_eye 11391
- thumb_up 10
Ответы и объяснения 1
Var a:integer;
begin
read (a);
if (a mod 10<1) or (a div 100 < 1) or ((a mod 100) div 10= 1) then
begin
writeln ('Неверный ввод');
halt;
end else
begin
writeln ((a mod 10) + (a div 100) + ((a mod 100) div 10));
end
end.
- 03.05.2018 14:06
- thumb_up 31
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.