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.