Question

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

Answer 1

Uses crt;

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.

Answer 2

Var a,b,c:integer;
begin
write('Введите двузначное число: ');
readln(a);
b := a div 10;
c := a mod 10;
writeln('Сумма: ', b + c);
writeln('Произведение: ', b*c);
writeln('Перестановка: ', c,b);
end.

Answer 3

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

lessCopy code
program TwoDigitNumber;

var
  n, a, b, sum, prod, newNum: integer;

begin
  write('Введите двузначное число: ');
  readln(n);
  
  a := n div 10;   // первая цифра числа
  b := n mod 10;   // вторая цифра числа
  
  // вычисляем сумму и произведение цифр числа
  sum := a + b;
  prod := a * b;
  
  writeln('Сумма цифр: ', sum);
  writeln('Произведение цифр: ', prod);
  
  // переставляем цифры исходного числа, чтобы получить новое число
  newNum := b * 10 + a;
  
  writeln('Число, полученное перестановкой цифр: ', newNum);
end.

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