Пусть в переменной С, имеющей типinteger,записано четырехзначное число. Запишите в пернменную Х, имеющую тип integer ,число, полученное перестановкой первой цифры с третьей цифрой, и второй цифры с четвертой цифрой исходного чи...
Пусть в переменной С, имеющей типinteger,записано четырехзначное число. Запишите в пернменную Х, имеющую тип integer ,число, полученное перестановкой первой цифры с третьей цифрой, и второй цифры с четвертой цифрой исходного числа. Например, если дано число 6104, то в ответе получается 461. Если пользуетесь дополнительными переменными то они все имеют тип integer.
Гость
Ответ(ы) на вопрос:
Гостьvar c, x: integer;
begin
read(c);
x := c div 100 mod 10 + 10 * (c div 1000) +
100 * (c mod 10) + 1000 * (c div 10 mod 10);
write(x)
end.
Не нашли ответ?
Похожие вопросы