Вам вряд ли задали так сделать, но всё же. var a,b:integer; d:string; begin writeln (' введи число'); readln(b); Str (b, d); for a:=length(d) downto 1 do begin write(d[a]); end; writeln(''); end.
лучше так напиши. var a,b,c:integer; begin write('введите число=> '); readln(a); write('обратное число=> '); while (a<>0) do begin b:=a mod 10; write(b); a:=a div 10; end; end.
Answers & Comments
Verified answer
Вам вряд ли задали так сделать, но всё же.var a,b:integer;
d:string;
begin
writeln (' введи число');
readln(b);
Str (b, d);
for a:=length(d) downto 1 do begin
write(d[a]);
end;
writeln('');
end.
лучше так напиши.
var a,b,c:integer;
begin
write('введите число=> ');
readln(a);
write('обратное число=> ');
while (a<>0) do begin
b:=a mod 10;
write(b);
a:=a div 10;
end;
end.