viết chương trình nhập vào từ bàn phím hai số nguyên a, b (a,b có giá trị tuyệt đối không vượt quá 1000) tính và đưa ra màn hình giá trị của biểu thức

0 bình luận về “viết chương trình nhập vào từ bàn phím hai số nguyên a, b (a,b có giá trị tuyệt đối không vượt quá 1000) tính và đưa ra màn hình giá trị của biểu thức”

1. Program TTD;
   Uses crt;
   Var a,b,t: int64;
   Begin
           Clrscr;
           Write(‘Nhap a va b: ‘); Readln(a,b);
           If (abs(a)>1000) and (abs(b)>1000) then
           Begin
                   Write(‘Nhap sai! Yeu cau nhap lai hai so a, b: ‘);
                   Readln(a,b);
           End;

           t:=sqr(a+b)*(a+b);
           Write(t);
           Readln
   End.

   Bình luận

2. program q86142;

   uses crt;

   var a, b, S:LongInt;

   begin
   clrscr;

   write(‘Nhap 2 so a va b’); readln(a,b);
   S:=0;

   If (abs(a) > 1000) or (abs(b) > 1000)) then write(‘Loi gia tri tuyet doi voi qua 1000’) 
   else S:=(a+b)*(a+b)*(a+b);
   write(‘Gia tri bieu thuc ‘,S);

   readln
   end.
   Chương trình chưa được chạy thử nên có thể có sai sót
        

   Bình luận