Question

Ребята, пожалуйста выручите меня. Завтра у меня информатика.Можете сделать 7 вариант задание 2, 3 и 6. Заранее спасибо!

Answer 1

2а.
var x,f:real;
begin
write('x = ');
readln(x);
if x<2 then f:=x*x*x-1 else f:=1/(x+1);
writeln('f = ',f);
end.

Пример:
x = 3
f = 0.25

2б.
var x,f:real;
begin
write('x = ');
readln(x);
if x>=0 
 then f:=sqrt(x)
 else if x>=-10 then f:=1-x else f:=exp(x);
writeln('f = ',f);
end.

Пример:
x = -5
f = 6

3.
var a,b,c:integer;
begin
writeln('Введите 3 числа');
readln(a,b,c);
writeln((a=b)or(a=c)or(b=c));
end.

Пример:
Введите 3 числа
3 5 3
True

6.
var x,y:real; b:boolean;
begin
writeln('Введите x и y');
readln(x,y);
b:=(x>=0)and(y>=0)and(x<=1)and(y<=2)or(x<=0)and(y<=0)and(x>=-1)and(y>=-1);
writeln(b);
end.

Пример:
Введите x и y
-0.5 -0.5
True