Var
A,B:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
WriteLn('C = ',Sqrt(A*A+B*B));
End.
A = 3
B = 2
C = 3.60555127546399
Var
x:real;
Begin
Write('x = ');ReadLn(x);
if x <= -12 then x:=-x*x
else if (-12 < x)and(x < 0) then x:=x*x*x*x
else x:=x-2;
WriteLn('y = ',x);
End.
Var
a,b,c:real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('c = ');ReadLn(c);
if (a<b)abd(b<c) then Write('Верно')
else Write('Неверно')
End.
язык
языков очень при очень много английский , украинский , русский ,
Var X:real;
Begin
Write('X = ');ReadLn(X);
if Cos(x)>0 then Begin
if Sin(x)<>0 then Write('Y = ',(1-Ln(Cos(x)))/Sin(x)) End
else Write('Значение функции не определено')
End.
Готово. Не пугайтесь swap, просто благодаря ему "пузырёк" выглядит лучше. Программа во вложении.
UPD: Чтобы увеличить рандомность генерации массива, измените аргумент в функции random из первого цикла.