Даны три числа. Выстроить их по убыванию - Pascal ABC

Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.89/18:

@tarapyhb 0 / 0 / 0 Регистрация: 12.01.2015 Сообщений: 4

	Даны три числа. Выстроить их по убыванию 16.01.2015, 18:57. Показов 3654. Ответов 1 Метки нет (Все метки) Даны три числа. Выстроить их по убыванию 0

Лучшие ответы (1)

Сообщение: #7113825

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

16.01.2015, 18:57

Ответы с готовыми решениями:

Даны три числа. Выстроить их в порядке убывания
Написать программу. Даны три числа. Выстроить их в порядке убывания.

Даны три переменные: X, Y, Z. Если их значения упорядочены по убыванию, то удвоить их
Условные операторы - Даны три переменные: X, Y, Z. Если их значения упорядочены по убыванию, то удвоить их; в противном случае заменить...

Даны три переменные: X, Y, Z. Если их значения упорядочены по возрастанию или убыванию, то удвоить их
Даны три переменные: X, Y, Z. Если их значения упорядочены по возрастанию или убыванию, то удвоить их; в противном случае заменить значение...

ildwine

Почетный модератор

6201 / 2963 / 1300

Регистрация: 04.03.2013

Сообщений: 5,797

Записей в блоге: 1

16.01.2015, 19:13

Сообщение было отмечено tarapyhb как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  a : array [1..3] of integer;
  i, j, k : integer;
 
begin
  write('введите 3 числа: ');
  readln(a[1], a[2], a[3]);
  for i := 1 to 3 do
    for j := 3 downto i do
      if a[i] < a[j] then
      begin
        k := a[i];
        a[i] := a[j];
        a[j] := k
      end;
  writeln(a[1]:7, a[2]:7, a[3]:7)
end.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

16.01.2015, 19:13

Помогаю со студенческими работами здесь

Даны три целочисленных массива А, В и С размера NА, NВ, NС соответственно, элементы которых упорядочены по убыванию
Даны три целочисленные массивы А, В и С размера NА, NВ, NС соответственно, элементы которых упорядочены по убыванию. Объединить эти...

Подпрограммы. Даны три матрицы A, B, C. Упорядочить диагональные элементы каждой из матриц по убыванию
Даны три матрицы A, B, C. Упорядочить диагональные элементы каждой из матриц по убыванию.

Выстроить элементы массива A по убыванию, определить и поместить в массив В – нечетные числа массива А, в массив С – четные числа массива А
Дан массив А (5; 7; 22; 1; 8; 16; 3). Выстроить элементы массива A по убыванию, определить и поместить в массив В – нечетные числа массива...

Даны три переменные вещественного типа: A, B, C. Если их значения упорядочены по возрастанию или убыванию,
Даны три переменные вещественного типа: A, B, C. Если их значения упорядочены по возрастанию или убыванию, то удвоить их; в противном...

Даны три дейтвительных числа a,b и c. Найти минимальное из этих чисел и вычислить сумму первого числа и найденного минимального числа.
Напишите программку (с коментариями если не трудно=) )) Даны три дейтвительных числа a,b и c. Найти минимальное из этих чисел и...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .

Наверх