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

Переставить в исходном четырёхзначном числе первые две цифры и последние две цифры местами.Например: Входное 1234, выходное 3412. (что тут делать)?

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

uses crt;
var n,k,a,b:string;
begin
write(Введите четырёхзначное число: );
readln(a);
n:=copy(a,1,2);
k:=copy(a,3,2);
b:=k+n;
writeln(b);
end.