Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
3 апреля 2023 07:29
465
Составьте программу сортировки по возрастанию значений трех переменных: А, В, С. Продемонстрируйте данный алгоритм в виде БЛОК-СХЕМЫ.
1
ответ
Ответ:
var a, b, c, t: integer;
begin
readln(a, b, c);
if a > b then begin t:=a; a:=b; b:=t end;
if b > c then begin t:=b; b:=c; c:=t end;
if a > b then begin t:=b ;b:=a; a:=t end;
writeln(a, ' ', b, ' ', c);
end.
var a, b, c, t: integer;
begin
readln(a, b, c);
if a > b then begin t:=a; a:=b; b:=t end;
if b > c then begin t:=b; b:=c; c:=t end;
if a > b then begin t:=b ;b:=a; a:=t end;
writeln(a, ' ', b, ' ', c);
end.
0
·
Хороший ответ
5 апреля 2023 07:29
Остались вопросы?
Еще вопросы по категории Информатика
графический файл содержит черно-белое изображение размером с 16 градациями серого цвета размером 10х10 точек Какой объем этого файла?...
Определи, чему должна быть равна переменная k, k, чтобы цикл выполнился ровно 4 раза: i := 6; while (i > k) do begin writeln(i, ' '); i :=...
Самостоятельная работа 1 по теме «Основы логики» 3aranne 1. Bbruerus: a） 0v1）♥（yo） b）（1~1）<0）vi C) (1→1) -(0 → 0) d） 0~1）〜1 e） 1x0x1）>1...
Даю 100 баллов на C++ надо написать программу задание с сириуса: Выведите в порядке возрастания все простые числа на отрезке [l;r]. Оформите решение...
Достоинство растрового изображения: 1)четкие и ясные контуры 2)небольшой размер файлов 3)точность цветопередачи 4)возможность масштабирования без п...
Все предметы 
