Var s,n,i,so:integer;

Begin

Write('Nhap so luong so n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i)readln(so);

If so mod 2 = 0 then s:=s+so;

End;

Write('Tong cac so chan la ',s);

Readln;

End.

Độ dài đáy bé: 20 - 5 = 15 (cm)

Độ dài chiều cao: 20 x 5 : 100 = 1 (cm)

Diện tích hình thang:

(20 + 15) x 1 : 2 = 17,5 (cm²)

B

B. 10

Bài 1:

Var so,i,n,dem:integer;

Begin

Write('Nhap so luong so n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i);readln(so);

If so mod 2 = 0 then dem:=dem+1;

End;

Write('Co ',dem,' so chan');

Readln;

End.

Bài 2:

Var st:string;

Begin

Write('Nhap vao xau ki tu ');readln(st);

Write(' Xau vua nhap co do dai la ',length(st));

Readln;

End.

Var s,i,n:longint;

Begin

Write('Nhap so luong so n = ');readln(n);

For i:=1 to n do

s:=s+i*i;

Write('Tong la ',s);

Readln;

End.

B. 1

A, C, D đúng

B sai