Tính tổng hai số và tích hai số rồi in ra màn hình Pascal kết quả lớn hơn

0 bình luận về “Tính tổng hai số và tích hai số rồi in ra màn hình Pascal kết quả lớn hơn”

1. program tong_tich;

   uses crt;

   var a,b,T,S: integer;

   Begin

            clrscr;

            write(‘Nhap so thu 1: ‘); readln(a);

            write(‘Nhap so thu 2: ‘); readln(b);

            T:=a+b; S:=a*b;

            if T<S then write(‘Tich = ‘,S)

            else write(‘Tong = ‘,T);

            readln

   End.

   Bình luận

2. 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 😀
   p/s: Hỏi và đáp, comment bên dưới!

   Bình luận