<span>Поименованное сложное действие, которое представляет собой совокупность операторов,вычисляющих некоторое число результатов в зависимости от некоторого числа аргументов называют - ПРОЦЕДУРОЙ.</span>
Найди лишнее десятичное чило и зачеркни.23,53,73,37,83.17,20,21,37,9940,44,48,88,42
Kulebakin
1 лишнее число-37 2 лишнее число-99 3 лишнее число-88
Var
x:real;
Begin
x:=-5;
repeat
writeln('y = ',sqr(x));
x:=x+0.5;
until(x>5)
End.
Sub algoritm()
a = Cells(2, 3)
b = Cells(3, 3)
c = Cells(4, 3)
s = Sqr(3 * c ^ 3 + b ^ 5) / (b - c)
k = Sqr(s) + Abs(-a * b * c)
y = s + 3 * k - s ^ 4 / (b + c)
Cells(5, 3) = y
<span>End Sub
</span>
Держи ))) удачи )))
var x, y, d: real;
begin
read(x,y);
d := sqrt( sqr(x) + sqr(y) ); {находим длину отрезка от центра координат}
if d <= 1 then
writeln('Входит в Д1')
else if ( x >= 2 ) and ( x <= 3 ) and ( y >= 0 ) and ( y <= 1 ) then
writeln('Входит в Д2')
else
writeln('Не входит');
end.