Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Обратный порядок чисел.

Автор: Catherinektz 28.02.2012 19:05

Помогите, пожалуйста, решить задачу в Pascal: Определить число, полученное выписыванием в обратном порядке цифр заданного целого трёхзначного числа.

Автор: TarasBer 28.02.2012 19:06

n := (n mod 10) * 100
+ (m div 10 mod 10) * 10
+ (m div 100 mod 10);

Автор: Catherinektz 20.03.2012 14:20

Цитата(TarasBer @ 28.02.2012 16:06)

n := (n mod 10) * 100
+ (m div 10 mod 10) * 10
+ (m div 100 mod 10);

У меня не работает(((
Что неправильно у меня?

Program Obrat;
Uses Crt;
Var n,m:Integer;

Begin
Clrscr;
WriteLn('Определение числа,выписанного в обратном порядке');
WriteLn('Введите трехзначное число');
ReadLn(n);
n:=(n mod 10)*100+(m div 10 mod 10)*10+(m div 100 mod 10);

Writeln('Число в обратном порядке ', n);
ReadLn;
End.

Автор: IUnknown 20.03.2012 15:31

M вообще откуда взялась? Должно быть так:

n:=(n mod 10)*100+(n div 10 mod 10)*10+(n div 100 mod 10);