Вторая:
Var
x:real;
Begin
Read(x);
if x<=0 then write('y = 0')
else if x<= 1 then write('y = ',x*x-x)
else write('y = ',x*x - sin(Pi*x*x -1))
End.
Третья:
Var
S1,S2:real;
Begin
Write('Площадь круга = ');Read(S1);
Write('Площадь квадрата = ');Read(S2);
S1:=sqrt(S1/Pi);
S2:=sqrt(S2);
if S1<=S2/2 then write('уместится')
else write('не уместится');
End.
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=15;
var a:=ArrRandom(n,-49,49); a.Println;
var b:=a.Select(t->2*t).ToArray; b.Println;
var max:=Range(3,n,3).Select(i->b[i-1]).Max;
Writeln('Искомый элемент: ',max)
end.
<u>Пример</u>
-39 -33 -3 -4 -49 -20 -48 -44 -13 -3 -13 6 -6 -20 17
-78 -66 -6 -8 -98 -40 -96 -88 -26 -6 -26 12 -12 -40 34
Искомый элемент: 34
1) Стиральная машина, 2)Холодильник, 3) Проигрыватель, любое техническое устройство. Человек не является формальным исполнителем. Но возможно. если он выполняет работу на конвеере
A.колонка.
Б.сервер.
В.монитор.
Г.сканер.
Лишное слово сервер.
Все остальное - устройства компьютера.А сервер -компьютер.
Var
x,F:real;
begin
Write('Введите значение аргумента х: ');
Readln(x);
if x > 3.6 then F := 45*x*x+5
else F := 5*x/(10*x*x+1);
Writeln('Значение функции равно ',F)
end.
Тестовое решение:
Введите значение аргумента х: 2
Значение функции равно 0.24390243902439
Введите значение аргумента х: 4
Значение функции равно 725