Question

В файле “data.pas” хранятся натуральные числа, разделенные пробелами. Прочитать первое натуральное число и вывести запись цифр числа в обратном порядке. желательно делфи

Answer 1

Имена процедур для Delphi - после //

var f:text; // TextFile
c:char; s:string; i:integer;
begin
Randomize;
assign(f,'data.pas'); // AssignFile
reset(f);
s:='';
c:='0';
while c<>' ' do
 begin
 read(f,c);
 s:=s+c;
 end;
for i:=length(s)-1 downto 1 do write(s[i]);
writeln;
close(f); // CloseFile
end.

Пример:
Файл data.pas:
130384565486 10254 658

Результат работы программы:
684565483031

Answer 2

Для выполнения этой задачи в Delphi, вам нужно открыть файл "data.pas", прочитать первое натуральное число и вывести его запись цифр в обратном порядке. Вот пример Delphi-кода, который может вам помочь:

delphiCopy code
program ReverseNumber;
var
  inputFile: TextFile;
  firstNumber, number, reversedNumber, remainder: Integer;
begin
  AssignFile(inputFile, 'data.pas');
  Reset(inputFile);

  // Считываем первое натуральное число
  Read(inputFile, firstNumber);

  // Инициализируем переменные для обратного числа и обработки
  number := firstNumber;
  reversedNumber := 0;

  // Разворачиваем число
  while number > 0 do
  begin
    remainder := number mod 10;
    reversedNumber := reversedNumber * 10 + remainder;
    number := number div 10;
  end;

  CloseFile(inputFile);

  // Выводим результат
  writeln('Первое натуральное число: ', firstNumber);
  writeln('Число в обратном порядке: ', reversedNumber);
end.

В этом коде мы открываем файл "data.pas", считываем первое натуральное число, а затем разворачиваем его, чтобы получить запись цифр в обратном порядке. Полученный результат выводится на экран.

Не забудьте создать файл "data.pas" и добавить в него натуральные числа, разделенные пробелами, перед запуском программы.