Дано четырёхзначное число. Найти число, образованное обменом первой и второй пар цифр этого числа - Turbo Pascal

Формулировка задачи:

Дано четырёхзначное число. Найти число, образованное обменом первой и второй пар цифр этого числа. Например, из числа 4566 получить 6645. Помогите Люди, не могу понять как это сделать


textual

Код к задаче: «Дано четырёхзначное число. Найти число, образованное обменом первой и второй пар цифр этого числа - Turbo Pascal»

var
s,s1:string;
begin
Write('четырех значное число:... ');
readLn(s);
s1:=s[3]+s[4]+s[1]+s[2];
WriteLn('Новое=',s1);
readln;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 3.571 из 5

Источник