Question

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

Answer 1

Program Zadacha;
var
    a, b: Integer;
Begin
    Write('Enter number ');
    ReadLn(a);
    
    b := (a mod 10)*10;
    b := b + (a div 10);
    
    WriteLn(b);    
    
    ReadLn;
End.

Answer 2

Program Cislo;
Var
    a, b: Integer;
Begin
    Write('Enter number ');
    Readln(a);
    
    b := (a mod 10)*10;
    b := b + (a div 10);
    
    Writeln(b);    
    
    Readln;

End;
End.

Answer 3

Пример программы на языке Pascal, который определяет число, образованное перестановкой цифр произвольного двузначного числа:

goCopy code
program permutation;
var
  num, tens, ones, newNum: integer;
begin
  write('Введите двузначное число: ');
  readln(num);

  // выделяем десятки и единицы
  tens := num div 10;
  ones := num mod 10;

  // переставляем цифры и формируем новое число
  newNum := ones * 10 + tens;

  // выводим результат
  writeln('Число, образованное перестановкой цифр: ', newNum);
end.

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