Uses Crt;
Var a,n,S,T:int32;
Begin
Writeln('Nhap n='); Readln(n);
Writeln('Nhap a='); Readln(a);
S:=a+n;
T:=a*n;
If S<T then writeln('Tong cua T=',T,' lon hon tong cua S= ',S) else if T<S then writeln('Tong cua S=',S,' lon hon tong cua T=',T);
If S<T then writeln('Tong cua S=',S,' nho hon tong cua T= ',T) else if T<S then writeln('Tong cua T=',T,' nho hon tong cua S=',S);
Readln
End.
*Nhớ tick và chọn làm câu tr/l hay nhất giúp mình nhé! Thanks :D
p/s: Hỏi và đáp, comment bên dưới!
