Составьте программу сортировки по возрастанию значений трех переменных: А, В, С. Продемонстрируйте данный алгоритм в виде БЛОК-СХЕМЫ.

1 ответ

Посмотреть ответы

Megamozg

2205

Ответ:
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.

Хороший ответ

5 апреля 2023 07:29

Остались вопросы?

Найти нужный

Еще вопросы по категории Информатика

Нет перегруженной подпрограммы с таким количеством параметров Power где ошибки? var s, p, x: real; l, m, n: integer; begin for l := m to n do begi... Круги Эйлера Информатика Угол I Прямая =180т Угол=60т Угол& прямая 20т Прямая=?т Решить уравнение по формуле: Поможет формула из теории множе... 1. Запишите значение переменной s, полученное в результате работы следующей программы. Var s,k: integer; Begin s := 0; for k := 6 to 12 do s := s+... дополните по аналогии:человек-записная книжка;компьютер: а) процессор б) долговременная память в) клавиатура г) монитор... Что больше? 100 кбайт * 0,1 мбайт...