Câu 1:
In: Số nguyên n.
Out: Số nguyên n là số chẵn hay lẻ.
MTTT:
B1: Nếu n mod 2 = 0 thì thông báo 'n la so chan' ngược lại thông báo 'n la so le'
B2: KTTT
VCT:
program ctpt;
uses crt;
var n: integer;
begin
clrscr;
write('Nhap so nguyen n = '); readln(n);
if n mod 2 = 0 then write(n, ' la so chan') else write(n, ' 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 3:
In: Số nguyên a.
Out: Số nguyên a là số dương hay âm.
MTTT:
B1: Nếu a>0 thì thông báo 'a la so duong' ngược lại nếu a<0 thì thông báo 'a la so am' ngược lại thì thông báo 'a khong la so duong hay am'
B2: KTTT.
VCT:
progra ctpt;
uses crt;
var: a: integer;
begin
clrscr;
write('Nhap so nguyen a = '); readln(a);
if a>0 then write(a, ' la so duong') else
if a<0 then write(a, ' la so am') else
write(a, ' khong la so duong hay am');
readln
end.
