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.