Question

Дано трехзначное число. вывести число, полученное при прочтении исходного числа справа налево. через паскальАБС

Answer 1

Var
A:integer;
Begin
Write('A = ');
ReadLn(A);
WriteLn(A mod 10,(A div 10) mod 10,A div 100)
End.

Answer 2

Для решения этой задачи на прочтение трехзначного числа справа налево через PascalABC, можно воспользоваться следующим алгоритмом:

1. Сначала необходимо ввести трехзначное число с клавиатуры. Для этого используется оператор `Readln`:

var
  number: Integer;
begin
  Readln(number);
  // остальной код
end.

2. Затем, чтобы прочитать число справа налево, нужно разложить его на отдельные цифры. В PascalABC это можно сделать с помощью деления на 10 и нахождения остатка от деления на 10:

var
  number, digit1, digit2, digit3: Integer;
begin
  Readln(number);
  
  digit1 := number mod 10; // находим последнюю цифру
  digit2 := (number div 10) mod 10; // находим вторую цифру
  digit3 := number div 100; // находим первую цифру
  
  // остальной код
end.

3. Наконец, чтобы вывести число, полученное при прочтении исходного числа справа налево, можно воспользоваться оператором `Writeln`:

var
  number, digit1, digit2, digit3: Integer;
begin
  Readln(number);
  
  digit1 := number mod 10; // находим последнюю цифру
  digit2 := (number div 10) mod 10; // находим вторую цифру
  digit3 := number div 100; // находим первую цифру
  
  Writeln(digit1, digit2, digit3);
end.

Теперь, при вводе трехзначного числа, программа выведет его цифры в обратном порядке. Например, при вводе числа 123, программа выведет число 321.