Question

Evaluare informatică

Answer 1

Răspuns:

1)

Program T;

var a,b,x,c,z:integer;

begin

readln(a,b,c,x);

z:=a*x*x+b*x*x+3*c;

writeln(z);

End.

4)

program T1;

begin

writeln(123456);

writeln(123);

writeln(123.02);

writeln('true');

end.