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

Question

Информатика

Фивея

19 сентября, 04:33

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

+5

Ответы (1)

Знаете ответ?

Аря · Answer 1

var s : string; f:char;

begin

write ('Введите четырехзначное число ') ;

readln (s) ;

f: = s[3];

s[3]: = s[2];

s[2]: = f;

write ('число = ', s) ;

end.