Вывести число, полученное при перестановке цифр сотен и единиц исходного числа

@kirikmus · Регистрация: 01.11.2016

Author24 — интернет-сервис помощи студентам

Задание: Дано четырехзначное число. Вывести число, полученное при перестановке цифр сотен и единиц исходного числа (Например, 1234 перейдет в 1432)

Но нужно не с отдельными числами сотен и единиц, а ввести одно целое(k например)

@JokeR.BY · 15.11.2016, 12:55

Pascal

var
    x: Word;
begin
    repeat
        Write('Введите четырёхзначное число: ');
        ReadLn(x);
    until ((x > 999) And (x < 10000));
    Inc(x, (x mod 10 - (x div 100) mod 10) * 99);
    WriteLn(x);
end.

@kirikmus 0 / 0 / 0 Регистрация: 01.11.2016 Сообщений: 21
		1
	Вывести число, полученное при перестановке цифр сотен и единиц исходного числа 15.11.2016, 12:44. Показов 4481. Ответов 1 Метки нет (Все метки) Задание: Дано четырехзначное число. Вывести число, полученное при перестановке цифр сотен и единиц исходного числа (Например, 1234 перейдет в 1432) Но нужно не с отдельными числами сотен и единиц, а ввести одно целое(k например) 0

	15.11.2016, 12:55

Опции темы

Вывести число, полученное при перестановке цифр сотен и единиц исходного числа

Решение