Question

Viết chương trình nhập vào số nguyên dương 𝑛. Nhập tiếp dãy gồm 𝑛 số nguyên. Hãy đếm số lượng số của dãy vừa nhập có đúng 3 chữ số.

Answer 1

Program HOC24;

var a: array[1..32000] of string;

d,i,n: integer;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

 write('a[',i,']='); readln(a[i]);

end;

d:=0;

for i:=1 to n do

if length(a[i]) = 3 then d:=d+1;

write('Co ',d,' so co 3 chu so trong day');

readln

end.