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

Ответы 6

  • Спасибо
  • Пожалуйста. Кстати, для "спасибо" тут есть синяя кнопочка.
    • Автор:

      keegan
    • 6 лет назад
    • 0
  • я тут просто 1 раз. Ничего не знаю :D
  • Странно... второй раз у меня экран не обновляется и я пишу после того, как Вы уже что-то сделали (((
  • Тогда просто замечу, что "Спасибо" достаточно просто отметить кнопкой и при желании можно отметить размер этого "спасибо" количеством звездочек, а комментарий с благодарностью не писать. Через время или когда дадут второй ответ, один из них можно пометить лучшим и это вернет Вам половину потраченных на вопрос баллов. Чем дороже Вы оцениваете вопрос, тем больше шансов на его решение. Баллы Вы зарабатываете, решая задания других в любом предмете.
    • Автор:

      josh
    • 6 лет назад
    • 0
  • // PascalABC.Netfunction 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
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years