Запишите на языке паскаль программу, которая для производьного двузначного числа определяет:
1) Сумму и произведение его цифр
2) Число образованное перестановкой чисел исходного числа.
1) Сумму и произведение его цифр
2) Число образованное перестановкой чисел исходного числа.
More Questions From This User See All
Answers & Comments
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.
begin
write('Введите двузначное число: ');
readln(a);
b := a div 10;
c := a mod 10;
writeln('Сумма: ', b + c);
writeln('Произведение: ', b*c);
writeln('Перестановка: ', c,b);
end.