Дано шестизначное число. Переставить две средние числа в начало числа. 123456

Дано шестизначное число. Переставить две средние цифры в начало числа. 123456 обязано получится 341256 через паскаль

Задать свой вопрос
1 ответ
Так как математических расчетов не делается, будем работать со строковым (символьным) представлением данных. Это как если бы мы брали шесть квадратиков бумаги, написали бы на каждом цифру 1, 2, ...6, и составили бы из этих кусочков цепочку 1-2-3-4-5-6 . А позже сделали бы нужные перестановки.

var
  s:string;
begin
  Write('Введите естественное шестизначное число: '); Readln(s);
  Writeln('Перестановка: ',s[3]+s[4]+s[1]+s[2]+s[5]+s[6])
end.

Тестовое решение:
Введите естественное шестизначное число: 123456
Перестановка: 341256

Юрка Эйдеман
var x, i: integer;beginwriteln('Введите шестизначное число: ');readln(x);i := x mod 10000;writeln( i div 100 ); writeln( x div 10000 ); writeln( x mod 100 );end.
Jelvira Papijan
И? Считаете, что Ваше решение проще? Начнем с ого, что оно вообщем неработоспособно в таком виде: в типе integer максимальное значение не может превосходить 32767 - Вы как собираетесь шестизначное число вводить? Ваши Writeln() будут выводить доли числа на различных строчках.
Ева Боркунова
В общем, я понял: заместо "спасибо" мне написали кривое решение, типа, "вот, смотри как надобно!" )))) К тому же, даже будучи исправленным, оно более длинноватое и более трудное для осознания. Поздравляю!
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт