Решите первые два задания из вложения,пожалуйста,только честно
Answers & Comments
infor5
Var a,b:real; begin write('введите два числа); read(a,b); if a+b=round(a+b) then write('сумма является целым числом') else write('не является'); end. =============== var x,y:real; begin write('задайте х'); if (x>= -4) and (x<=7) then y:=2*x*x+7*x-6 else y:=sqr(sqr(x))+x-2; write('Ответ: если х=',x,' y= ', y); end.
2 votes Thanks 1
crepe
Var x,y:real; beginreadln(x); if (x>=-4) and (x<=7) then y:=((2*sqr(x))+(7*x)-6) else y:= (Exp(Ln(x)*4))+x-2; writeln(y); readln; end.
Answers & Comments
begin
write('введите два числа);
read(a,b);
if a+b=round(a+b) then write('сумма является целым числом') else write('не является');
end.
===============
var x,y:real;
begin
write('задайте х');
if (x>= -4) and (x<=7) then y:=2*x*x+7*x-6 else y:=sqr(sqr(x))+x-2;
write('Ответ: если х=',x,' y= ', y);
end.
beginreadln(x);
if (x>=-4) and (x<=7) then y:=((2*sqr(x))+(7*x)-6)
else y:= (Exp(Ln(x)*4))+x-2;
writeln(y);
readln;
end.