Написать программу о нахождении двухзначного числа А.Найти сумму и произведение цифр...

Question

Написать программу о нахождении двухзначного числа А.Найти сумму и произведение цифр данного числа,а также вывести новое число,в котором цифры числа А поменялись местами

Answer 1

Var a,a1,a2:integer;
begin
readln(a);
a1:=a div 10;
a2:=a mod 10;
writeln("Сумма цифр = ",a1+a2);
writeln("Произведение цифр = ",a1*a2);
writeln("Число наоборот: ",a2*10+a1);
end.

Пример:
25
Сумма цифр = 7
Произведение цифр = 10
Число наоборот: 52

Comments

А Program куда?

---

Спасибо