// 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.
<em><u>Тестовое решение:</u></em>
Порядковый номер "красивого" числа: 15
Красивое число равно 20
Органы чувств-язык,нос,кожа,уши,глаза
чувств-грусть,радостьи так далее я думаю так
#include<iostream>
using namespace std;
int main() {
int a;
int b;
int n=0;
cin >> b;
for (int i = 1; i <=b; i++) {
a = i;
n+=a;
}
cout << n << endl;
system("pause");
}
Форматированный код на C# и демонстрация работы на скриншотах.
Код текстом ниже.
using System;
using System.Linq;
namespace task29989793
{
class Program
{
static void Main()
{
Console.Write("Enter number: ");
var number = Console.ReadLine().Select(i => int.Parse(i.ToString()));
Console.WriteLine($"Count of odd digits: {number.Count(i => i % 2 == 1)}");
Console.WriteLine($"Count of even digits: {number.Count(i => i % 2 == 0)}");
}
}
}