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

Question

Информатика

Оня

13 апреля, 07:23

Дано натуральное четырехзначное число. Найти число, полученное перестановкой 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.