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

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

Задать свой вопрос
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
Тоха Лев
А Program куда?
Роман
Спасибо
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт