Дано шестизначное число. Переставить две средние числа в начало числа. 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
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() будут выводить доли числа на различных строчках.
Ева Боркунова
В общем, я понял: заместо "спасибо" мне написали кривое решение, типа, "вот, смотри как надобно!" )))) К тому же, даже будучи исправленным, оно более длинноватое и более трудное для осознания. Поздравляю!
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Приветствую!
Меня зовут Станислав, я представляю компанию under.site.
Хотел бы предложить интересное решение
Разные вопросы.
Масса трёх одинаковых пакетов чая 180г чему равна масса
Математика.
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Облако тегов