#26
(1+sqr(sin(x+y)))/(2+abs(x-2*x/(1+sqr(x*y)))+x
Const
m = 0.92;
var
z, y, c: real;
begin
write('Введи у: ');
readln(y);
c := 69 - (y - sqr(m)) / sqrt(y);
if y < 8 then
z := sqrt(m + c) + c * c * c
else
z := sqrt(c - m) - m * m * m;
write('Ответ: ', z:2:2);
end.
const
x = 13;
ha = 4;
var
a, sb, pa: real;
i: integer;
b: array[1..3]of integer;
begin
b[1] := 14;
b[2] := 23;
b[3] := 42;
sb := 0;
for i := 1 to 3 do
sb := sb + b[i];
a := 12;
pa := 1;
while a <= 24 do
begin
pa := pa * sqrt(a + x);
a := a + ha;
end;
writeln(pa / sb);
end.
//произведение двух минимальных чисел в последовательности
begin
var x: integer;
Read(x);
var min1 := MaxInt;
var min2 := MaxInt;
repeat
if x <= min1 then
begin
min2 := min1;
min1 := x
end
else if x < min2 then
min2 := x;
Read(x);
until x = 0;
if (min1 <> MaxInt) and (min2 <> MaxInt) then
Print(min1 * min2)
end.
Каша-КаМа -Заменяем букву ш на букву М