Найти число полученное при прочтении его цифр справа налево

@lama11 · Регистрация: 18.09.2013

Студворк — интернет-сервис помощи студентам

1. Дано трехзначное число. Найти число полученное при прочтении его цифр справа налево.

2. Даны три различных целых числа. Определить какое из них(первое, второе или третье):
1) самое большое
2) самое маленькое
3) является средним (средним назовем число, которое больше наименьшего из данных чисел, но меньше наибольшего)

3. Определить, является ли вводимое с клавиатуры последовательность упорядоченной. Хранить элементы в памяти нет необходимости.

Комментарий модератора

lama11, на будущее - для каждой задачи создавайте отдельную тему, название темы должно быть информативным, отражать суть задачи. Читайте правила форума

@Puporev · 18.09.2013, 18:01

1.

Pascal
1
write(n mod 10,n div 10 mod 10,n div 100);

Добавлено через 3 минуты
2.

Pascal
1
2
3
if a>b then mx:=a else mx:=b;if c>mx then mx:=c;
if a<b then mn:=a else mn:=b;if c<mn then mn:=c;
sr:=a+b+c-mn-mx;

Добавлено через 8 минут
Первый код поправил.

@lama11 · 18.09.2013, 18:57 **[ТС]**

Сможешь програмки полностью написать, очень прошу

@erl27 · 18.09.2013, 19:19

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
var
  N, n1, n2, n3, t1, t2, t3: word;
 
begin
  N := 100 + random(900);
  writeln('Трехзначное целое число:');
  write(' N = ', N);
  writeln;
  t3 := N mod 10; //третья цифра
  N := N div 10;  //число созданное первыми двумя цифрами
  t2 := N mod 10; //вторая цифра
  t1 := N div 10; //первая цифра
 {t3 - сотни, t2 - десятки, t1 - единицы: }
  N := 100 * t3 + 10 * t2 + t1; //перевернутое число
  writeln;
  writeln('Результат:');
  writeln(' Прочитанное в обратном порядке число: ', N);
  writeln;
  writeln('Вводим три случайных числа:');
  n1 := random(10000);
  repeat
    n2 := random(10000);
    n3 := random(10000)
  until (n1 <> n2)and(n1 <> n3)and(n2 <> n3);
  writeln(' ', n1, ' ', n2, ' ', n3);
  writeln;
  t1 := min(min(n1,n2),n3);
  t2 := max(max(n1, n2), n3);
  writeln('Результат:');
  write(' ');
 { Вычисляем расположение чисел: } 
  if t1 = n1 then 
    if t2 = n2 then 
     writeln(n1,' - наименьшее, ', n3, ' - среднее, ', n2, ' - наибольшее')
    else 
     writeln(n1,' - наименьшее, ', n2, ' - среднее ', n3, ' - наибольшее,')
  else
  if t1 = n2 then
    if t2 = n3 then 
     writeln(n2, ' - наименьшее, ', n1, ' - среднее, ', n3, ' - наибольшее')
    else 
     writeln(n2, ' - наименьшее, ', n3, ' - среднее, ', n1, ' - наибольшее')
  else
  if t1 = n3 then
    if t2 = n2 then 
     writeln(n3, ' - наименьшее, ', n1, ' - среднее, ', n2, ' - наибольшее')
    else 
     writeln(n3, ' - наименьшее, ', n2, ' - среднее, ', n1, ' - наибольшее');
  writeln; 
 { Определяем упорядоченность: } 
  if sign(n1 - n2) * sign(n2 - n3) > 0 then 
    writeln('Данная последовательность является упорядоченной')
  else writeln('Данная последовательность не является упорядоченной');
  writeln(' Конец.')
end.

@lama11 · 18.09.2013, 19:28 **[ТС]**

Спасибо большое, а первые две сможете написать?

@erl27 · 18.09.2013, 20:21

В предыдущем коде содержатся все три решения. Если тебе надо отдельно, то:

первая задача:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  N, n1, n2, n3, t1, t2, t3: word;
 
begin
  N := 100 + random(900);
  writeln('Трехзначное целое число:');
  write(' N = ', N);
  writeln;
  t3 := N mod 10; //третья цифра
  N := N div 10;  //число созданное первыми двумя цифрами
  t2 := N mod 10; //вторая цифра
  t1 := N div 10; //первая цифра
 {t3 - сотни, t2 - десятки, t1 - единицы: }
  N := 100 * t3 + 10 * t2 + t1; //перевернутое число
  writeln;
  writeln('Результат:');
  writeln(' Прочитанное в обратном порядке число: ', N)
end.

вторая задача:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
var
  N, n1, n2, n3, t1, t2, t3: word;
 
begin
  writeln('Вводим три случайных числа:');
  n1 := random(10000);
  repeat
    n2 := random(10000);
    n3 := random(10000)
  until (n1 <> n2)and(n1 <> n3)and(n2 <> n3);
  writeln(' ', n1, ' ', n2, ' ', n3);
  writeln;
  t1 := min(min(n1,n2),n3);
  t2 := max(max(n1, n2), n3);
  writeln('Результат:');
  write(' ');
 { Вычисляем расположение чисел: } 
  if t1 = n1 then 
    if t2 = n2 then 
     writeln(n1,' - наименьшее, ', n3, ' - среднее, ', n2, ' - наибольшее')
    else 
     writeln(n1,' - наименьшее, ', n2, ' - среднее ', n3, ' - наибольшее,')
  else
  if t1 = n2 then
    if t2 = n3 then 
     writeln(n2, ' - наименьшее, ', n1, ' - среднее, ', n3, ' - наибольшее')
    else 
     writeln(n2, ' - наименьшее, ', n3, ' - среднее, ', n1, ' - наибольшее')
  else
  if t1 = n3 then
    if t2 = n2 then 
     writeln(n3, ' - наименьшее, ', n1, ' - среднее, ', n2, ' - наибольшее')
    else 
     writeln(n3, ' - наименьшее, ', n2, ' - среднее, ', n1, ' - наибольшее')
end.

третья задача:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
  N, n1, n2, n3, t1, t2, t3: word;
 
begin
  writeln('Вводим три случайных числа:');
  n1 := random(10000);
  repeat
    n2 := random(10000);
    n3 := random(10000)
  until (n1 <> n2)and(n1 <> n3)and(n2 <> n3);
  writeln(' ', n1, ' ', n2, ' ', n3);
  writeln;
  t1 := min(min(n1,n2),n3);
  t2 := max(max(n1, n2), n3);
  writeln('Результат:');
  write(' ');
  writeln; 
 { Определяем упорядоченность: } 
  if sign(n1 - n2) * sign(n2 - n3) > 0 then 
    writeln('Данная последовательность является упорядоченной')
  else writeln(' Данная последовательность не является упорядоченной');
  writeln(' Конец.')
end.

Другой раз надо уточнять, что должно быть три кода, а не один.

@lama11 · 29.09.2013, 12:52 **[ТС]**

почему во 2 и 3 задании паскаль не видит идентификатор "min" ?

@Puporev · 29.09.2013, 12:58

Здесь min, max это функции модуля Math, которого в простом АВС нет. На чем написана программа, автор не указал.

@lama11 · 29.09.2013, 16:50 **[ТС]**

Видимо в Delphi

@erl27 · 29.09.2013, 17:02

Я так понял, что это ко мне. Это не Delphi, а PascalABC.Net. Извиняюсь, но я не знал, что в простом PascalABC нет min и max. Там ещё, оказывается, нет и random(a, b), поэтому я использую a + random(b - a + 1).

@lama11 · 29.09.2013, 17:08 **[ТС]**

Тоесть вы в обычном ABC не работаете?

Добавлено через 1 минуту
А не могли бы вы написать 2 задачу в ABC, я просто еще учусь, 3 я понял

@erl27 · 29.09.2013, 18:07

У меня PascalABC просто нет. Поскольку PascalABC.Net совместим с Delphi, да ещё появился и дизайнер форм (для начального изучения), то я загрузил именно эту версию. Правда, я хотел перенести инженерный калькулятор, сделанный в Delphi 7, так у меня ничего не получилось (кое-какие изменения все таки есть).

Добавлено через 50 минут
Во второй задаче вместо

Pascal
1
2
t1 := min(min(n1,n2),n3);
  t2 := max(max(n1, n2), n3);

поставь

Pascal
1
2
3
4
5
6
t1 := n1;
  if t1 > n2 then t1 := n2;
  if t1 > n3 then t1 := n3;
  t2 := n1;
  if t2 < n2 then t2 := n2;
  if t2 < n3 then t2 := n3;

@lama11 · 29.09.2013, 19:20 **[ТС]**

Спасибо огромное за помощь, напишите еще по 3 задаче, я ошибся, я другую разобрал а не ту которую вы написали.

@erl27 · 29.09.2013, 19:38

3-я задача:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
var
  N, n1, n2, n3, t1, t2, t3: word;
 
begin
  writeln('Вводим три случайных числа:');
  n1 := random(10000);
  repeat
    n2 := random(10000);
    n3 := random(10000)
  until (n1 <> n2)and(n1 <> n3)and(n2 <> n3);
  writeln(' ', n1, ' ', n2, ' ', n3);
  writeln;
  t1 := n1;
  if t1 > n2 then t1 := n2;
  if t1 > n3 then t1 := n3;
  t2 := n1;
  if t2 < n2 then t2 := n2;
  if t2 < n3 then t2 := n3;
  writeln('Результат:');
  write(' ');
  writeln; 
 { Определяем упорядоченность: } 
  if sign(n1 - n2) * sign(n2 - n3) > 0 then 
    writeln('Данная последовательность является упорядоченной')
  else writeln(' Данная последовательность не является упорядоченной');
  writeln(' Конец.')
end.

@lama11 · 29.09.2013, 20:03 **[ТС]**

if sign(n1 - n2) * sign(n2 - n3) > 0 then - эту строчку он не видит
Пишет "неизвестный идентификатор sign"

@erl27 · 29.09.2013, 20:26

тогда вместо этого

Сообщение от erl27

if sign(n1 - n2) * sign(n2 - n3) > 0 then

напиши

Pascal
1
(n1 - n2) * (n2 - n3) > 0

Добавлено через 1 минуту
то есть, я хотел сказать

Pascal
1
if (n1 - n2) * (n2 - n3) > 0 then

и та далее...

@lama11 · 29.09.2013, 20:31 **[ТС]**

Большое спасибо

Новые блоги и статьи Все статьи Все блоги /
Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .

Найти число полученное при прочтении его цифр справа налево

Решение

Решение

Решение

@lama11 0 / 0 / 0 Регистрация: 18.09.2013 Сообщений: 15
	18.09.2013, 18:57 [ТС]
	Сможешь програмки полностью написать, очень прошу 0

@lama11 0 / 0 / 0 Регистрация: 18.09.2013 Сообщений: 15
	18.09.2013, 19:28 [ТС]
	Спасибо большое, а первые две сможете написать? 0

@lama11 0 / 0 / 0 Регистрация: 18.09.2013 Сообщений: 15
	29.09.2013, 12:52 [ТС]
	почему во 2 и 3 задании паскаль не видит идентификатор "min" ? 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	29.09.2013, 12:58
	Здесь min, max это функции модуля Math, которого в простом АВС нет. На чем написана программа, автор не указал. 1

@lama11 0 / 0 / 0 Регистрация: 18.09.2013 Сообщений: 15
	29.09.2013, 16:50 [ТС]
	Видимо в Delphi 0

@erl27 908 / 756 / 833 Регистрация: 06.09.2013 Сообщений: 1,561
	29.09.2013, 17:02
	Я так понял, что это ко мне. Это не Delphi, а PascalABC.Net. Извиняюсь, но я не знал, что в простом PascalABC нет min и max. Там ещё, оказывается, нет и random(a, b), поэтому я использую a + random(b - a + 1). 1

@lama11 0 / 0 / 0 Регистрация: 18.09.2013 Сообщений: 15
	29.09.2013, 17:08 [ТС]
	Тоесть вы в обычном ABC не работаете? Добавлено через 1 минуту А не могли бы вы написать 2 задачу в ABC, я просто еще учусь, 3 я понял 0

@lama11 0 / 0 / 0 Регистрация: 18.09.2013 Сообщений: 15
	29.09.2013, 19:20 [ТС]
	Спасибо огромное за помощь, напишите еще по 3 задаче, я ошибся, я другую разобрал а не ту которую вы написали. 0

@lama11 0 / 0 / 0 Регистрация: 18.09.2013 Сообщений: 15
	29.09.2013, 20:03 [ТС]
	if sign(n1 - n2) * sign(n2 - n3) > 0 then - эту строчку он не видит Пишет "неизвестный идентификатор sign" 0

@lama11 0 / 0 / 0 Регистрация: 18.09.2013 Сообщений: 15
	29.09.2013, 20:31 [ТС]
	Большое спасибо 0