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

Question

Информатика

Санюта

23 сентября, 12:44

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

+3

Ответы (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.