Question

Viết chương trình tính giá trị biểu thức a = x^2+x+1 với x nhập từ bàn phím tin 8

Answer 1

program bieuthuc;

uses crt;

var x,a:real;

begin

write('nhap gia tri x'); readln(x);

a:=0;

a:=a+x*x+x+1;

write('gia tri a la',a);

readln

end.

Answer 2

program bieuthuc;

uses crt;

var x,a:real;

begin

write('nhap gia tri x'); readln(x);

a:=0;

a:=a+x*x+x+1;

write('gia tri a la',a);

readln

end.

Answer 3

sai sạch

Answer 4

var a,x:real;

begin

write('x=');readln(x);

a:=x*x+x+1;

writeln(' Ket qua la: ',a:0:0);

readln;

end.