Jurijus Zaksas
Искусственный Интеллект
(429945)
14 лет назад
Кубраковское решение, конечно, будет работать, но по головке за такое не погладят. Вот, для сравнения:
readln(n);
d:=1;
for j:=1 to trunc(ln(n)/ln(10)) do
d:=d*10;
LastDigit:=n mod 10;
FirstDigit:=n div d;
MiddlePart:=n mod d div 10;
n:=LastDigit*d+MiddlePart*10+FirstDigit;
writeln(n);
readln;
Junex
Знаток
(416)
14 лет назад
uses crt;
var s:string;
q,z,a:integer;c:char;
begin clrscr;
readln(a);
str(a,s);
q:=length(s);
c:=s[q];
s[q]:=s[1];
s[1]:=c;
val(s,a,z);
writeln(a);
readln
end.