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

14 Ноя 2021 в 19:40
72 +1
0
Ответы
1

program DvuznachnoeChislo;

var
n, a, b, sum, mul, newNumber: integer;

begin
// Ввод двузначного числа
writeln′Введитедвузначноечисло:′'Введите двузначное число:'Введитедвузначноечисло:;
readlnnnn;

// Определение суммы и произведения цифр
a := n div 10;
b := n mod 10;
sum := a + b;
mul := a * b;

writeln′Суммацифр:′,sum'Сумма цифр:', sumСуммацифр:,sum;
writeln′Произведениецифр:′,mul'Произведение цифр:', mulПроизведениецифр:,mul;

// Образование нового числа из перестановки цифр
newNumber := b * 10 + a;
writeln′Число,образованноеперестановкойцифр:′,newNumber'Число, образованное перестановкой цифр:', newNumberЧисло,образованноеперестановкойцифр:,newNumber;
end.

17 Апр 2024 в 08:46
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир