Question

составьте программу определяющую является ли введённое число решением неравенства x2-4>0.pasclABC

Answer 1

var x:real;
begin
writeln('введите x');
readln(x);
x:=x*2-4;
if x<0 then
writeln('не является');
else
writeln('является');
end.

Answer 2

VAR
   x: Real;
BEGIN
   Read(x);
   
   If (x*x > 4) then Write('Yes')
   Else Write('No');
END.