выделение цифр в записи числа

[машко]

Дано трехзначное число. Найти число полученое при перестановке второй и третьей цифр заданого числа.

[fbus]

язык какой?

[Mikhail Bakurov]

на Delphi

var
   n:integer;
   sot,dec,ed:integer;
begin
   ReadLn(n);
   ed:=Round(n mod 10);
   dec:=Round(((n mod 100)-ed)/10);
   sot:=Round((n mod 1000) - (n mod 100));
   n:=sot+ed*10+dec;
   WriteLn(n);
   ReadLn;
end.

Может можно и грамотнее сделать

[ОДИНОЧЕСТВО В СЕТИ]

var s:string;
begin
writeln('Input number');
readln(s);
write(s[1]);
write(s[3]);
write(s[2]);
readln;
end.

[Mikhail Bakurov]

ОДИНОЧЕСТВО В СЕТИ
Действительно... что-то я перемудрил
только во всех Write не s[], а str[]

[машко]

спаибо большое вы мне очень помогли