Viết chương trình nhập vào 3 số nguyên a, b và c từ bàn phím. Tính và in ra chương trình: a) X= a+b+c b) X= (a+b)²/c Mọi người giúp mình câu này với !!!!!!!!!

2 câu trả lời

program ct_tinh;

uses crt;

var a,b,c:integer;

      x,y:real;

begin

 clrscr;

write('nhap so a= ');readln(a);

write('nhap so b= ');readln(b);

write('nhap so c= ');readln(c);

x:=a+b+c;

y:=(a+b)*(a+b)/c;

writeln('x= ',x);

writeln('y= ',y);

readln;

end.

uses crt;

var a,b,c:integer;

begin

write('nhap a:');readln(a);

write('nhap b:');readln(b);

write('nhap c:');readln(c);

writeln('X1=',a+b+c);

writeln('X2=',((a+b)*(a+b))/c);

readln;

end.