Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Задача 2. Дано четырехзначное число. Найти число, полученное перестановкой второй и третьей цифры заданного числа. (Например, 4567 ---> 4657)

Ответ оставил Гость

Var
  n: integer;
  t, t1: string[4];
begin
  writeln(введите число --> );
  read(n);
  Str(n,t);
  t1 := t[1] + t[3] + t[2] + t[4];
  writeln(Ответ , t, --> , t1)
end.