Ответы
Ответ дал:
0
Ответ:
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.
Приложения:
![](https://st.uroker.com/files/a0f/a0fe5648d9c9a5990edbc95102e34e93.png)
![](https://st.uroker.com/files/9a1/9a126152f36181d7971b61940acd04d5.png)
![](https://st.uroker.com/files/a3d/a3d3de75308ad7ad7807a9dc62ecf612.png)
![](https://st.uroker.com/files/4df/4dfb1e4b2b62789a4be99d20a0cc832a.png)
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад