Дано натуральное число А. Вывести число, полученное из А путем прочтения его цифр справа налево. Например, 12345 -> 54321.
uses crt;var s:array[1..100] of integer; a,i,j,b:integer;begin clrscr; readln(a); b:=a; j:=0; while b<>0 do begin j:=j+1; s[j]:=b mod 10; b:=b div 10; end; for i:=1 to j do write(s[i]); writeln; readln;end.
Оцени ответ
