Viết chương trình tính chu vi, diện tích hình vuông có cạnh a Viết chương trình tính chu vi và diện tích hình tròn có bán kính r Viết chương trình in ra màn hình các số từ 0 đến 99 theo dạng 10 hàng 10 cột Viết chương trình nhâp vào 2 biến AB. Tính tổng AB, hiệu AB, xuất tổng hiệu lên màn hình

Viết chương trình tính chu vi, diện tích hình vuông có cạnh a:

program bai1;

uses crt;

Var

        A:integer;

Begin

        Clrscr;

        write('Nhap canh hinh vuong: '); readln(a);

        write('Chu vi hinh vuong la: ',a*4);

        write('Dien tich hinh vuong la: ',a*a);

        Readln;

End.

Viết chương trình tính chu vi và diện tích hình tròn có bán kính r:

program bai2;

Uses crt;

Var

        R:real;

Begin

        Clrcr;

        write('Nhap ban kinh: '); readln(r);

        write('Chu vi hinh tron: ',r*2*3.14:5:2);

        write('Dien tich hinh tron: ',r*r*3,14:5:2)

        readln;

End.

Viết chương trình in ra màn hình các số từ 0 đến 99 theo dạng 10 hàng 10 cột

program bai3;

uses crt;

Var

       i:integer;

Begin

       Clrscr;

        for i:=0 to 99 do i mod 10=9 then write(i:4) else write(i:4);

       readln;

End.

Viết chương trình nhâp vào 2 biến AB. Tính tổng AB, hiệu AB, xuất tổng hiệu lên màn hình

program bai4;

uses crt;

Var

      A,b:integer;

begin

      Clrscr;

      write('Nhap A: '); readln(a);

      write('Nhap B: '); readln(b);

      writeln('Tong la: ',a+b);

      writeln('Hieu la: ',a-b);

      Readln;

End.

#HN

#Good_luck!