Question

Написать программу на паскале, которая выводит число a в обратном порядке

Answer 1

Код к задаче: «Вывести число в обратном порядке - Pascal»

var x1,x2,h,i,s:integer;

begin

write('x1=');readln(x1);

write('h=');readln(h);

x2:=2*x1+h;

i:=2;

s:=x1+x2;

while i<=8 do

begin

 i:=i+1;

 x1:=x2;

 x2:=2*x1+h;

 s:=s+x2;

 if i=5 then writeln('Пятый элемент=',x2);

 if i=7 then writeln('Сумма=',s);

 if i=8 then write('Восьмой элемент=',x2);

end;

readln

end.

Answer 2

Для написания программы на Pascal, которая выводит число a в обратном порядке, можно использовать рекурсию. Вот пример программы:

pascalCopy code
program ReverseNumber;

// Функция, которая выводит число в обратном порядке
function Reverse(a: Integer): Integer;
begin
  if a < 10 then
    Result := a
  else
  begin
    Result := (a mod 10) * Trunc(Power(10, Trunc(Log10(a)))) + Reverse(a div 10);
  end;
end;

var
  number, reversed: Integer;
begin
  Write('Введите число: ');
  Readln(number);

  reversed := Reverse(number);
  Writeln('Число в обратном порядке: ', reversed);
end.

Программа сначала считывает число a, а затем передает его в функцию Reverse. Функция Reverse рекурсивно разбивает число на цифры, обратное их порядку и возвращает результат. Например, для числа 12345 результатом будет 54321.