В файле data.pas хранятся натуральные числа, разбитые пробелами. Прочитать 1-ое

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

Задать свой вопрос
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 clt;gt;' ' 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
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт