program eqationcreator;
var a,b,c:integer;
begin
a:=random (100)-99;
b:=random (100)-99;
c:=random (200)-49;
if c>0 then
writeln (a,'x^2',b,'x+',c) else
writeln (a,'x^2',b,'x',c)
end.
Объяснение:
program eqationcreator;
var a,b,c:integer;
begin
a:=random (100)-99;
b:=random (100)-99;
c:=random (200)-49;
if c>0 then
writeln (a,'x^2',b,'x+',c) else
writeln (a,'x^2',b,'x',c)
end.
Объяснение: