<span>num_1 = int(input("Введіть 1 число: "))
diya_1 = input("Введіть дію: ")
num_2 = int(input("Введіть 2 число: "))
diya_2 = input("Введіть дію: ")
num_3 = int(input("Введіть 3 число: "))
if diya_1 == '/'<span>:
</span> if diya_2 == '/'<span>:
</span> print(num_1,'/',num_2,'/',num_3,'= ', num_1/num_2/num_3)
if diya_2 == '*'<span>:
</span> print(num_1,'*',num_2,'/',num_3,'= ', num_1*num_2/num_3)
if diya_2 == '-'<span>:
</span> print(num_1,'-',num_2,'/',num_3,'= ', num_1-num_2/num_3)
if diya_2 == '-'<span>:
</span> print(num_1,'+',num_2,'/',num_3,'= ', num_1+num_2/num_3)
if diya_1 == '+'<span>:
</span> if diya_2 == '*'<span>:
</span> print(num_1,'+',num_2,'*',num_3,'= ', num_1+num_2*num_3)
if diya_2 == '/'<span>:
</span> print(num_1,'+',num_2,'/',num_3,'= ', num_1+num_2/num_3)
if diya_2 == '+'<span>:
</span> print(num_1,'+',num_2,'+',num_3,'= ', num_1+num_2+num_3)
if diya_2 == '-'<span>:
</span> print(num_1,'+',num_2,'-',num_3,'= ', num_1+num_2-num_3)
if diya_1 == '*'<span>:
</span> if diya_2 == '+'<span>:
</span> print(num_1,'*',num_2,'+',num_3,'= ', num_1*num_2+num_3)
if diya_2 == '-'<span>:
</span> print(num_1,'*',num_2,'-',num_3,'= ', num_1*num_2-num_3)
if diya_2 == '/'<span>:
</span> print(num_1,'*',num_2,'/',num_3,'= ', num_1*num_2/num_3)
if diya_2 == '*'<span>:
</span> print(num_1,'*',num_2,'*',num_3,'= ', num_1*num_2*num_3)
if diya_1 == '/'<span>:
</span> if diya_2 == '-'<span>:
</span> print(num_1,'/',num_2,'/',num_3,'= ', num_1/num_2/num_3)
if diya_2 == '+'<span>:
</span> print(num_1,'*',num_2,'+',num_3,'= ', num_1/num_2+num_3)
if diya_2 == '*'<span>:
</span> print(num_1,'-',num_2,'*',num_3,'= ', num_1/num_2*num_3)
if diya_2 == '-'<span>:
</span> print(num_1,'+',num_2,'-',num_3,'= ', num_1/num_2-num_3)
</span>
// 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
