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

2

Ответы и объяснения

2013-03-12T22:07:47+04:00

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.

2013-03-13T02:00:39+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var
    s: string;

begin
    read(s);
    if length(s) >= 4 then  
        writeln(s[3] + s[4] + s[1] + s[2]);
end.