Question

Cho dãy b=b1,b2...bn nguyên.đếm các số chia hết cho 5 (trình bày rõ ràng các bước )

Answer 1

Bước 1: xác định bài toán

-input: dãy B₁,B₂,B₃,...,B_n

-output:số các số chia hết cho 5

Bước 2: Viết thuật toán

-bước 1: nhập dãy số

-bước 2: dem:=0; i:=1;

-bước 3: nếu b[i] chia hết cho 5 thì dem:=dem+1;

-bước 4: i:=i+1;

-bước 5: nếu i≤n thì quay lại bước 3

-bước 6: xuất dem;

-bước 7:kết thúc

Bước 3: viết chương trình

uses crt;
var n,i,dem:integer;
b:array[1..100]of integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('b[',i,']=');readln(b[i]);
end;
{------------xuat-day-----------------}
for i:=1 to n do
write(b[i]:4);
{------------xu-ly------------------}
writeln;
dem:=0;
i:=1;
while i<=n do
begin
if b[i] mod 5=0 then inc(dem);
i:=i+1;
end;
writeln('so cac so chia het cho 5 trong day la: ',dem);
readln;
end.