Составьте программу сортировки по возрастанию значений трёх переменных: a,d,c.

Показать ответ

Ответ:

varta

04.10.2020 10:21

Var
    a, d, c, t: integer;

begin
    readln(a, d, c);
    if a < d then begin t := a;a := d;d := t; end;
    if a < c then begin t := a;a := c;c := t; end;
    if d < c then begin t := d;d := c;c := t; end;
    writeln(a, ' ', d, ' ', c);
end.

0,0(0 оценок)

Популярные вопросы: Информатика

Kiralex71

17.08.2022 15:27

2 Жадтың қызметіNoЖад түрлеріІIАқпараттарды компьютерді жүктеумен оны іске қосар алдындасақтайдыА.Ішкі жедел жад (ЖЕСК)Аралық есте сақтау құрылғысы менІ процессор арасындағы ақпараттардыалмастыруға...

Yaroslav34364

03.09.2020 02:44

Если дорога по которой ты обычно ходишь в школу вдруг окажется перекрытой каким другим коротким и удобным путем ты сможешь добраться до школы...

Aizere1111

23.02.2023 12:13

1. Какие признаки объекта считаются существенными 9. Приведете 2-3 примера слов-омонимов, выражает 8. Приведете 2-3 примера слов-синонимов, выражали, 4. Вспомните, в каких ситуациях...

Рыжая111111

20.04.2022 12:08

Практические задания 1. На каждой странице создать гиперссылку на следующую по тексту «Далее» и обратно по тексту «Назад». При переходе по тексту «Далее» страница должна открываться...

annamos16

07.06.2021 16:50

Паскаль 1. в двумерном массиве вычислить a(4,4) найти наибольший элемент, лежащий на главной диагонали. 2. дан массив a(5,5). для данного натурального m найти сумму тех элементов...

Rozo4ka1mr

20.02.2023 09:43

Какая команда присваивания должна следовать за a: = a+b и b: a-b чтобы последовательное выполнение всех трех команд вело к обмену значениями переменных а и в? варианты ответа:...

elvira2020

20.02.2023 09:43

Одномерный массив состоит из 5 элементов. массив заполняется случайными числами из диапазона от 0 до 20. выведите массив на экран в строчку и найдите произведение элементов массива....

вампир982

20.02.2023 09:43

Сделать в pascal abc одно яблоко весит 100 граммов, а один апельсин 150 граммов. вам n апельсинов или m яблок. хочется взять то, что весит больше. напишите программу, подсказывающую,...

Anzhelika0624

03.06.2022 12:11

Как можно быстрее! рассчитай объём видеопамяти, необходимой для хранения графического изображения, занимающего весь экран монитора с разрешением 640х350 и палитрой из 2 цветов...

ayveliss

26.08.2022 19:56

Зашифруйте слово ёж,составьте алгоритм расшифровки букв...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку