Вам вряд ли задали так сделать, но всё же. 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.
//дано трехзначное число найдите сумму его цифр var x,y,i:word; begin writeln('Введите трехзначное число'); readln (x); while (999<x) or (x<100) do //в цикле проверяется "трехзначность" числа begin writeln('Вы ввели не трехзначное число попробуйте еще раз'); readln (x); end; for i:=1 to 3 do // число делиться на цифры begin y:=y+x mod 10; x:=x div 10; end; writeln('Сумма цифр данного числа ',y); <span>end.</span>