Ответы на вопрос:
1.
var n1,n2,n3: integer;
begin
writeln('Введите n1,n2,n3: ');
readln(n1,n2,n3);
if (n2<n1) then swap(n2,n1);
if (n3<n1) then swap(n3,n1);
if (n3<n2) then swap(n3,n2);
writeln('n1,n2,n3 в возрастающем порядке: ',
n1,' ',n2,' ',n3);
end.
2.
var a,b,c: integer;
var s: real;
begin
writeln('Введите a,b,c: ');
readln(a,b,c);
s:=(a-b-c)/(sqrt(a*b*c));
writeln(s);
end.
3.
var a,b,c: integer;
var s: real;
begin
writeln('Введите a,b,c: ');
readln(a,b,c);
s:=(a+b+c)/3;
writeln('Среднее арифметическое: ',s);
end.
4.
var a,b: integer;
var s: real;
begin
writeln('Введите a,b: ');
readln(a,b);
if ((a>0) and (b>0)) then s:=a+b
else s:=a*a-b*b;
writeln(s);
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
lava777pop14.01.2023 12:59
-
Anjik2012520.04.2020 15:03
-
kloodinvulf345109.08.2022 09:44
-
lol0989025.07.2021 14:05
-
lenabejenar04.01.2023 02:03
-
KriSha1125.08.2022 08:57
-
Vikasuk19.03.2021 19:06
-
марина192421.10.2020 13:03
-
Linanamik22.03.2022 12:31
-
Milena2017107.04.2021 03:30
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.