1. Информатика
  2. Составить программу сортировки

Составить программу сортировки в паскаль abc: даны три числа, расположить их в порядке убывания.

kauymovemil kauymovemil    3   01.03.2019 02:10    9

Ответы
kopechenkina kopechenkina  06.06.2020 21:16

Program p;

Var
a,b,c,i,j,n : Integer;

Begin
Writeln('введите три числа');
Readln(a,b,c);

if a>b then if a>c then Writeln(a,c,b)
else Writeln(c,a,b)
else if c>b then Writeln(a,b,c)
else Writeln(b,c,a); 

Readln;
End. 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Miki236 Miki236  10.12.2020 08:01
Что необходимо для организации движения нескольких объектов​...
dniil2003 dniil2003  10.12.2020 08:01
А B.12 NoI3. Дана таблица учета пропусков учащихся. Напишите функцию для вычисления количества дней, когда Алексей пропустил уроки.C D E F G HУчет пропусков уроков за неделюФамилия,...
zevs34 zevs34  18.05.2019 17:30
Сканируется цветное изображение размером 2 x 2 дюйма. разрешающая сканера - 600 x 600 dpi, глубина цвета - 8 битов. какой информационный объём будет иметь полученный графический...
raiskadem raiskadem  18.05.2019 17:30
Растровое изображение было сохранено в файле как 256-цветный рисунок. во сколько раз уменьшиться информационный объём файла, если его же изображение сохранить как монохромный...
ayaplay457890 ayaplay457890  18.05.2019 17:30
Для чего производиться сжатие файлов раствого типа?...
снежана1281 снежана1281  23.12.2020 22:47
Найти количество элементов последовательности, которые делятся без остатка на 3 в Python...
irishkakrasa irishkakrasa  23.12.2020 22:48
С Но размер треугольника вводит пользователь * * * * * * * * * * и * * * * * * * * * * * * * * * * На пайтон...
VINERDANYA VINERDANYA  14.08.2019 05:40
Написать программу на паскале. заполнить массив случайным образом буквами латинского алфавита и цифрами (арабскими). отсортировать массив следующим образом: сначала гласные ,затем...
svitaliy360 svitaliy360  30.08.2019 08:20
Как дописать программу по информатике? найти максимальный элемент и его номер? без всякой константы? типо такого: program aaa; var a: array[1..5] of integer; i, m, nom: integer;...
karine228 karine228  21.05.2020 13:27
Решите с объяснением Камень массой 300 г начинает падать с горы высотой 40 м вертикально вниз. Определить потенциальную и кинетическую энергии в момент, когда высота уменьшится...

Популярные вопросы