Question

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

Answer 1

uses crt;

var input,a,b,c:integer;
begin       
readln(input);       
a:=input div 10;       
a:= a mod 10;       
b := input mod 10;               
writeln('Сумма ', a + b);       
writeln('Произведение ', a*b);       
writeln('Перестановка ', b * 10 + a);               
end.

Answer 2

var a,b,c:integer;
begin
write('Введите двузначное число: ');
readln(a);
b := a div 10;
c := a mod 10;
writeln('Сумма: ', b + c);
writeln('Произведение: ', b*c);
writeln('Перестановка: ', c,b);
end.