Запишите на языке паскаль программу которая для произвольного натурального трехзначного числа определяет: а)Сумму и произведения его цифр б)число, образовано перестановкой цифр исходного числа

var i: integer;

begin

randomize;

i := 10 + random (90);

writeln ('число = ', i);

writeln;

writeln ('сумма его цифр = ', i mod 10 + i div 10 );

writeln ('произведение его цифр = ', (i mod 10) * (i div 10 ));

write ('число, образованное перестановкой цифр исходного числа = ', (i mod 10) *10 + i div 10);

end.

program name;
var i,n,x,summa,count:integer;
nechet:boolean;
begin
Writeln('Vvedite n: ');
readln(n);//получаем n
summa:=0;
count:=0;
i:=1;
if(n mod 2 = 1) then nechet := true else nechet := false; //проверяем четное число или нет
while i<n do begin//пока число меньше n
if(nechet) then//если число нечентное
begin
summa:=summa+i*i*i;//прибавляем к сумме куб этого числа
end
else//если число четное
begin
summa:=summa+i*i;//прибавляем квадрат числа
end;
i:=i+1;//прибавляем число на 1
end;
writeln(' summa: ', summa);//выводим сумму
readln();
end.

Первое задание:

Вам нужно только написать ввод и вывод, формула уже написана.

Код (Python 3):

x, y, z = map(int, input().split())

u=(max(x,y,z) - min(x,y,z))/(max(x,y,z)+min(x,y,z))

print(u)

Пример ввода 1:

1 1 1

Пример вывода 1:

0.0

Пример ввода 2:

3 2 1

Пример вывода 2:

0.5

Второе задание:

Находим максимальное число, и если текущее число не оно, на него можно умножать. Можно использовать список, так решение будет короче, я использую три переменные x, y, z.

Код (Python 3):

x, y, z = map(int, input().split())

max_xyz = max(x, y, z)

product = 1

if x != max_xyz:

  product *= x

if y != max_xyz:

  product *= y

if z != max_xyz:

  product *= z

print(product)

Пример ввода 1:

1 2 3

Пример вывода 1:

2

Пример ввода 2:

3 2 1

Пример вывода 2:

2

Объяснение:норм?