Дано натуральное четырехзначное число. Найти число ,полученное перестановкой 2 и 3 цифр заданного числа
Дано натуральное четырехзначное число. Найти число ,полученное перестановкой 2 и 3 цифр заданного числа
Гость
Ответ(ы) на вопрос:
Гость var s :string;f:char;
begin
write('Введите четырехзначное число ');
readln(s);
f:= s[3];
s[3]:= s[2];
s[2]:= f;
write('число = ',s);
end.
Не нашли ответ?
Похожие вопросы