Регистрация
2Hello3
27.03.2022 19:51
Информатика
Есть ответ 👍

Қандай антивирустық программалар бар?
​

195
224
Посмотреть ответы 1

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

sashazhuravleva
sashazhuravleva
4,5(61 оценок)
Var   x,a,b,c,max,min,mid: real; begin   readln(x);   a: =sin(x);   b: =cos(x);   if a> 0 then   begin     c: =ln(x);     if (a> b) and (a> c) then  max: =a else     if (b> a) and (b> c) then max: =b else  max: =c;     if (a< b) and (a< c) then min: =a else     if (b< a) and (b< c) then min: =b else min: =c;     if (a> min) and (a< max) then mid: =a else     if (b> min) and (b< max) then mid: =b else mid: =c;     writeln(min,' ',mid,' ',max);   end   else   if a> b then writeln(b,' ',a) else writeln(a,' ',b); end.

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