Запишите на языке паскаль программу которая для произвольного натурального двузначного числа определяет a) сумму и произведение
Запишите на языке паскаль программу которая для произвольного натурального двузначного числа определяет a) сумму и произведение его цифр б) число,образованное перестановкой цифр исходного числа
Var n,d,e:integer; begin Write('Введите двухзначное число: '); Read(n); d:=n div 10; e:=n mod 10; Writeln('Сумма цифр равна ',d+e,', произведение ',d*e); Writeln('Число, полученное перестановкой цифр ',10*e+d) end.
<em><u>Тестовое решение:</u></em> Введите двухзначное число: 29 Сумма цифр равна 11, произведение 18 Число, полученное перестановкой цифр 92
А) Program sum_pr; Var sum,pr,a1,a2,a : integer; BEGIN read(a); a1:=a div 10; a2:=a mod 10; sum:=a1+a2; pr:=a1*a2; write(sum,pr); END. б) Program per; Var per,a1,a2,a : integer; BEGIN read(a); a1:=a div 10; a2:=a mod 10; per:=a2*10+a1; write(per); END.