<span>Ввести X</span>
<span>Ввести Y</span>
<span>R=6</span>
<span>A=2</span>
<span>Если Х²+Y²>R² То
</span><span> "Не
принадлежит"</span>
Иначе
<span>
Если X<A То
</span><span> "Не
принадлежит"</span><span>
Иначе</span>
<span> "Принадлежит"
</span><span> Конец Если</span>
<span>Конец Если</span>
В зоопарке есть очень много животных, как хищные, млекопитающие и др. экипаж первый второй. больше незнаю
Var x,y: real;
begin
readln(x);
y:=x/(1+((x*x)/5+(x*x*x)));
writeln(y);
end.
Подключаться к интернету,загружать программы и приложения,проигрывать музыку,фотографировать... Удачи:)
1)
Var x: real;
Begin
writeln ('Введите число');
readln (x);
if x>0 then
writeln ('Число ', x, ' положительное')
else
if x<0 then
writeln ('Число ', x, ' отрицательное')
else
if x=0 then
writeln ('Число ', x, ' не является ни положительным, ни отрицательным');
End.
2.
Var x, y: real;
Begin
writeln ('Введите два числа');
readln (x,y);
if x>y then writeln (x)
else
if x<y then writeln (y)
else
if x=y then writeln ('Числа равны');
End.
3.
Var x, sum, pr: real;
i: integer;
Begin
sum:=0;
pr:=1;
For i:=1 to 5 do
begin
write ('Введите число: ');
readln (x);
sum:=sum+x;
pr:=pr*x;
end;
writeln ('Сумма чисел = ', sum);
writeln ('Произведение чисел = ', pr);
if sum>pr then writeln (sum)
else
if sum<pr then writeln (pr)
else
if sum=pr then writeln ('Сумма и произведение равны');
End.