Câu 1:

In: Số nguyên a.

Out: Số nguyên a là số chẵn hay lẻ.

MTTT:

B1: Nếu a mod 2 = 0 thì thông báo 'a la so chan' ngược lại thông báo 'a la so le'

B2: KTTT

VCT:

program ctpt;

uses crt;

  var a: integer;

begin

         clrscr;

         write('Nhap so nguyen a = '); readln(a);

         if a mod 2 = 0 then write(a, ' la so chan') else write(a, ' la so le');

         readln

end.

Câu 2:

In: Chiều dài (a), chiều rộng (b)

Out: Chu vi (C), diện tích (S)

MTTT:

B1: C←(a+b)*2

B2: S←a*b

B3: Thông báo C, S và KTTT

VCT

program ctpt;

uses crt;

  var a, b, C, S: real;

begin

           clrscr;

           write('Nhap chieu dai a = '); readln(a);

           write('Nhap chieu rong b = '); readln(b);

           C:=(a+b)*2;

           S:=a*b;

           writeln('Chu vi hinh chu nhat la: ', C:2:1);

           writeln('Dien tich hinh chu nhat la: ', S:2:1);

           readln

end.

Câu 1: 

Input: Số n

Output: Số n chẵn hay lẽ

Thuật toán:

Bước 1: Nhập n

Bước 2: 

2.1: Nếu n mod 2 = 0 thì thông báo chẵn và thực hiện bước 3

2.2: Nếu n mod 2 <> 0 thì thông báo lẻ và thực hiện bước 3

Bước 3: Kết thúc chương trình

Chương trình:

Program NN;
Uses crt;
Var n: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        If n mod 2 = 0 then Write('Chan')
        Else Write('Le');
        Readln
End.

Câu 2:

Input: Chiều dài, chiều rộng của HCN

Output: Chu vi và diện tích HCN

Thuật toán:

Bước 1: Nhập cd, cr

Bước 2:

2.1: s<-cd*cr;

2.2: p<-(cd+cr)*2;

Bước 3: Xuất cd và cr ra màn hình

Chương trình:

Program NN;
Uses crt;
Var cr,cd,s,p: real;
Begin
        Clrscr;
        Write('Nhap chieu dai va chieu rong: '); Readln(cd,cr);
        s:=cd*cr;
        p:=(cd+cr)*2;
        Writeln('S = ',s:0:2);
        Write('P = ',p:0:2);
        Readln
End.