Question

Viết chương trình đếm các số là bội của 3 trong khoảng từ [-12 ,64]

 

Answer 1

Program Boicuaba;

Uses crt;

Var i,n,dem:integer;

a:array[-12...64] of integer;

Begin

clrscr();

Dem:=0;Write('Nhap so phan tu ');

Readln(n);

For i:=1 to n do

Begin

Write('Nhap a[',i,']');

Readln(a[i]);

End;

For i:=1 to n do

Begin if a[i] mod 3=0 then inc(dem);

End;

Write('Co ',dem,' so la boi cua 3 trong ',n,' phan tu');

Readln

End.

Answer 2

var i,dem:integer;

begin

write('So cac so la boi cua 3 trong khoang tu -12 den 64 la ');

for i:=-12 to 64 do

if i mod 3 = 0 then dem:=dem+1;

write(dem,' so');

readln;

end.