Будем называть число красивым, если сумма его цифр в десятичной системе счисления делятся...

Question

Будем называть число красивым, если сумма его цифр в десятичной системе счисления делятся на количество цифр в нём (в десятичной системе счисления). Необходимо найти N-ое в порядке возрастания красивое число. Примеры : 1 - 1; 15 - 20; Все это надо в паскале ABC

Comments

Единицу считать?

---

Да. Только это надо в паскале ABC. Вот пример : 15 входной , 20 выходной

---

Не понял! Число 20 является ПЯТНАДЦАТЫМ по порядку красивым числом?

---

я вот и сам не понял... по этому решил попросить помочь

---

а оно случайно не шестое ?

---

или второе ?

---

Начинаем от 1. В этом числе одна цифра 1 и сумма цифр делится на 1. На 1 делятся все однозначные числа и таких будет девять. Дальше идут двухзначные и красивые те, у которых четная сумма цифр. Это 11, 13, 15, 17, 19, 20, 22, 24... Да, действительно 20 по порядку пятнадцатое.

---

Вы бы в вопрос вставили требования Паскаля АВС; без этого Вам имеют право написать программу на любом языке, блок-схему нарисовать или даже описать алгоритм по-русски или на украинском.

---

я это 2 минуты назад сделал. Извиняюсь

Answer 1

// PascalABC.Net

function IsNice(n:longint):boolean;
// Отвечает на вопрос, является ли число красивым
var
  d,nd,sd:byte;
begin
  sd:=0; nd:=0;
  repeat
    d:=n mod 10;
    sd:=sd+d; Inc(nd);
    n:=n div 10
  until n=0;
  IsNice:=(sd mod nd = 0)
end;

var
  i,n,k:longint;
begin
  Write('Порядковый номер "красивого" числа: '); Read(n);
  i:=1; k:=0;
  repeat
    if IsNice(i) then Inc(k);
    if k<>n then Inc(i)
  until k=n;
  Writeln('Красивое число равно ',i)
end.

Тестовое решение:
Порядковый номер "красивого" числа: 15
Красивое число равно 20

Comments

Спасибо

---

Пожалуйста. Кстати, для "спасибо" тут есть синяя кнопочка.

---

я тут просто 1 раз. Ничего не знаю :D

---

Странно... второй раз у меня экран не обновляется и я пишу после того, как Вы уже что-то сделали (((

---

Тогда просто замечу, что "Спасибо" достаточно просто отметить кнопкой и при желании можно отметить размер этого "спасибо" количеством звездочек, а комментарий с благодарностью не писать. Через время или когда дадут второй ответ, один из них можно пометить лучшим и это вернет Вам половину потраченных на вопрос баллов. Чем дороже Вы оцениваете вопрос, тем больше шансов на его решение. Баллы Вы зарабатываете, решая задания других в любом предмете.