Вопрос по информатике:
Делать через ПАСКАЛЬ! Дано пятизначное число. Распаковать число на цифры. Собрать новое число, у которого цифры расположены в обратном порядке. Делать с div и mod
Пожаловаться
- 23.04.2015 03:32
- Информатика
- remove_red_eye 14515
- thumb_up 39
Ответы и объяснения 1
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var n:=Abs(ReadInteger('n='));
if not n.Between(10000,99999) then begin
Writeln('Число должно быть пятизначным');
exit
end;
var a:=new integer[5];
for var i:=0 to 4 do begin
a[i]:=n mod 10;
n:=n div 10
end;
n:=a[0];
for var i:=1 to 4 do n:=10*n+a[i];
Writeln('n= ',n)
end.
Пример
n= 52061
n= 16025
Внимание! Если программа не работает, обновите версию!
begin
var n:=Abs(ReadInteger('n='));
if not n.Between(10000,99999) then begin
Writeln('Число должно быть пятизначным');
exit
end;
var a:=new integer[5];
for var i:=0 to 4 do begin
a[i]:=n mod 10;
n:=n div 10
end;
n:=a[0];
for var i:=1 to 4 do n:=10*n+a[i];
Writeln('n= ',n)
end.
Пример
n= 52061
n= 16025
Пожаловаться
- 24.04.2015 11:57
- thumb_up 21
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы