Вам вряд ли задали так сделать, но всё же. 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.
Aleksandr362
07.01.2022
Компьютер будущего будет, скорее даже не компьютером в нашем понятии, а отдельной сферой жизни. это будет общедоступная сеть, связываться и которой можно будет с мысленных сигналов-импульсов, либо голосовых команд. как таковое устройство будет представлять из себя микрочип, подсоединенный к организму с которого можно будет выходить в это виртуальное пространство, функции которого будут объединять усовершенствованное подобие интернета, и множество уже существующих и новых функций компьютера, телефона, прочей техники и программного обеспечения в принципе.