Question

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

Answer 1

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

Pascal ABC.NET
Версия 3.0 сборка 1064

Answer 2

Я могу помочь вам с написанием программы на языке Паскаль, которая решает задачу, которую вы задали. Вот пример такой программы:

program digits;
var
  n, a, b, s, p, r: integer;
begin
  writeln('Введите двузначное натуральное число');
  readln(n);
  a := n div 10; // первая цифра числа
  b := n mod 10; // вторая цифра числа
  s := a + b; // сумма цифр
  p := a * b; // произведение цифр
  r := b * 10 + a; // число, образованное перестановкой цифр
  writeln('Сумма цифр числа ', n, ' равна ', s);
  writeln('Произведение цифр числа ', n, ' равно ', p);
  writeln('Число, образованное перестановкой цифр числа ', n, ' равно ', r);
end.

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