Регистрация
BOSS653
31.01.2022 03:46
Информатика
Есть ответ 👍

Даны 3 числа расположить их по убыванию. написать функцию нахождения max и min. это все одна . написать на pascale. ,

123
248
Посмотреть ответы 2

Ответы на вопрос:

Leo200
Leo200
4,6(29 оценок)

var a, b, c, max, min, mid: integer;

begin

writeln('напишите 3 числа');

readln(a, b, c);

if (a> b)and(a> c) then max: =a;

else

if (b> a)and(b> c) then max: =b

else

  max: =c;

if (a

else

if (b

else

  min: =c;

if ((a> b)and(ac)) then mid: =a;

else

if ((bc))or((b> a)and(b

else

  mid: =c;

writeln(max, mid, min);

end.

tankist09056
tankist09056
4,4(47 оценок)
Шершавый-осязание; соленный-вкус; звонкий-слух! вот и всё

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