Вопрос по информатике:
Дано четырехзначное натуральное число A. Какое число получится, если в нем поменять местами вторую и последнюю цифры?
!! (программа паскаль)
Пожаловаться
- 04.06.2018 05:58
- Информатика
- remove_red_eye 16012
- thumb_up 43
Ответы и объяснения 1
Var n, a1, a2, a3, a4: integer;
begin
repeat
writeln('Введите четырёхзначное число:');
readln(n);
if (n 9999) then writeln('Ошибка');
until (n >= 1000) and (n <= 9999);
a4 := n mod 10;
a3 := n div 10 mod 10;
a2 := n div 100 mod 10;
a1 := n div 1000;
n := a1 * 1000 + a4 * 100 + a3 * 10 + a2;
writeln(n)
end.
begin
repeat
writeln('Введите четырёхзначное число:');
readln(n);
if (n 9999) then writeln('Ошибка');
until (n >= 1000) and (n <= 9999);
a4 := n mod 10;
a3 := n div 10 mod 10;
a2 := n div 100 mod 10;
a1 := n div 1000;
n := a1 * 1000 + a4 * 100 + a3 * 10 + a2;
writeln(n)
end.
Пожаловаться
- 05.06.2018 19:22
- thumb_up 4
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы