Question

viết chương trình tính biểu thức sau đây (a2+(a+b) với giá trị abc được nhập từ bàn phím Integer 

Answer 1

uses crt;

var a,b,c:integer;

begin

clrscr;

readln(a,b,c);

writeln(a*a+a+b);

readln;

end.

Answer 2

program lcmmmmmm;

var

a,b,c,s:integer; // có thể thay integer bằng longint

begin

assign(input,'bai1.inp');reset(input);

assign(output,'bai1.out');rewrite(output);

readln(a,b,c);

s:=0;

s:=(a*a+(a+b));

write(s);

end.