Регистрация
123456351
08.10.2021 03:37
Информатика
Есть ответ 👍

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

226
500
Посмотреть ответы 2

Ответы на вопрос:

veronika121416
veronika121416
4,8(79 оценок)
// 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
wormer221
wormer221
4,8(83 оценок)
Вчём проблема? программа работает

Популярно: Информатика