Câu 1: Khai báo hai biến kiểu số nguyên. Sau đó tính và in ra màn hình tổng hai số nguyên vừa nhập. Câu 2: Viết chương trình nhập vào chiều dài, chiều

0 bình luận về “Câu 1: Khai báo hai biến kiểu số nguyên. Sau đó tính và in ra màn hình tổng hai số nguyên vừa nhập. Câu 2: Viết chương trình nhập vào chiều dài, chiều”

1. Câu 1:

   Program NhatNgu;
   Uses crt;
   Var a,b,s: longint;
   Begin
           Clrscr;
           Write(‘Nhap a: ‘); Readln(a);
           Write(‘Nhap b: ‘); Readln(b);
           s:=a+b;
           Write(‘S = ‘,s);
           Readln
   End.

   Câu 2:

   Program NhatNgu;
   Uses crt;
   Var a,b,cv,dt: real;
   Begin
           Clrscr;
           Write(‘Nhap chieu dai: ‘); Readln(a);
           Write(‘Nhap chieu rong: ‘); Readln(b);
           cv:=(a+b)*2;
           dt:=a*b;
           Writeln(‘Chu vi = ‘,cv:0:2);
           Write(‘Dien tich = ‘,dt:0:2);
           Readln
   End.

   Bình luận

2. Câu 1

   program tinh;

   var x,y,tong:integer;

   begin

      Write(‘Nhap hai so nguyen’); readln(x,y);

      Tong:=x+y;

      Writeln(‘x+y=’,tong); 

      Readln

   End. 

   Câu 2:

   Program hcn; 

   Var cd,cr,p,s:real;

   Begin

      Writeln(‘Nhap chieu dai va chieu rong’); 

      Readln(cd,cr);

      P:=(cd+cr)*2; s:=cd*cr;

      Writeln(‘chu vi la:’,p:2:2,’  dien tich la:’,s:2:2);

      Readln

   End. 

   Bình luận