Вопрос по информатике:
ОЧЕЕЕЕНЬ СРОЧНО!!!!!!!
Дано натурально число N. Найти и вывести все числа в интервале от 1 до N-1, у которых сумма всех цифр совпадает с суммой цифр данного числа. Если таких чисел нет, то вывести слово.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 19.04.2017 18:19
- Информатика
- remove_red_eye 6612
- thumb_up 38
Ответы и объяснения 1
Внимание! Если программа не работает, обновите версию!
function SoD(n:integer):integer;
// сумма цифр в натуральном числе
begin
Result:=0;
while n>0 do begin
Result+=n mod 10;
n:=n div 10
end
end;
begin
var n:=ReadInteger('n=');
var sd:=SoD(n);
var s:=1.To(n-1).Where(t->SoD(t)=sd);
if s.Count=0 then Writeln('Нет')
else s.Println
end.
Пример
n= 136
19 28 37 46 55 64 73 82 91 109 118 127
- 20.04.2017 10:31
- thumb_up 29
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.