2.Viết chương trình nhập n số nguyên. Đếm các số vừa chia hết cho 2 vừa chia hết cho 3. Xuất kết quả ra màn hình
Giúp tui với các bạn

Question

2.Viết chương trình nhập n số nguyên. Đếm các số vừa chia hết cho 2 vừa chia hết cho 3. Xuất kết quả ra màn hình Giúp tui với các bạn

minhthue · Answer

program ct;

uses crt;

var i,n,d:integer;

A:array[1..100] of integer;

begin

clrscr;

write(‘nhap n:=’);readln(n);

for i:=1 to n do

begin

write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);

end;

d:=0;

for i:=1 to n do

if (A[i] mod 2=0) and (A[i] mod 3=0) then d:=d+1;

writeln(‘co’,d,’ so chia het cho 2 va 3′);

readln

end.

khanhchau · Answer

uses crt;

var n,i ,dem : integer;

a : array[1..100] of integer;

begin clrscr;

write(‘Nhap so nguyen n:’); readln(n);

for i:=1 to n do begin write(‘Nhap a[‘,i,’]=’); readln(a[i]);

end;

For i:=1 to n do

if (a[i] mod 2=0) and (a[i] mod 3=0) then dem:=dem+1;

write(‘Ket qua la :’, dem);

readln

end.

0 bình luận về “2.Viết chương trình nhập n số nguyên. Đếm các số vừa chia hết cho 2 vừa chia hết cho 3. Xuất kết quả ra màn hình Giúp tui với các bạn”