Вопрос по информатике:
Ввести натуральное число и определить, верно ли, что сумма его цифр равна10.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 03.01.2017 15:17
- Информатика
- remove_red_eye 5998
- thumb_up 27
Ответы и объяснения 1
Program G;
Uses Crt;
Var summ, x, m, back: integer;
Begin
ClrScr;
Writeln('Введите натуральное число.');
Readln(x);
Summ:=0;
Back:=x;
While x>0 do
Begin
m:=x mod 10;
x:=x div 10;
summ:=summ+m;
End;
If summ=10 then Writeln('Сумма цифр числа ', back, ' равна 10.')
Else Writeln('Сумма чисел числа ', back, ' не равна 10.');
Readln;
End.
- 04.01.2017 08:52
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.