Ребята, пожалуйста выручите меня. Завтра у меня информатика.Можете сделать 7 вариа
Ребята, пожалуйста выручите меня. Завтра у меня информатика.Можете сделать 7 вариант задание 2, 3 и 6. Заранее спасибо!
Гость
Ответ(ы) на вопрос:
Гость 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
Не нашли ответ?
Похожие вопросы