Дано целое трехзначное число ai) по заданному алгоритму составьте код программы. алг сумманач ввод(x) x=остаток(x; 10) вывод (x) кон алг (ii) входные данные a=345. определите выходные данные
Вам вряд ли задали так сделать, но всё же. 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.