Mọi người giúp mình được không ạ
Bài 1 viết chương trình nhập số tự nhiên , kiểm tra có phải hợp số không
Bài 2 nhập vào mảng n (n nhập từ bàn phím). Tính trung bình cộng các số đã nhập và in ra màn hình
Bài 3 tính tổng các số chia hết cho 3 trong dãy số nguyên x1, x2 … xn biết n và các số nguyên x là các số nhập từ bàn phím (n>0)
Các cậu nếu biết cách giải thù giúp mình luôn phần khai báo nhé
Mình cảm ơn ạ
Bài 1:
uses crt;
var n,i,dem:integer;
begin
clrscr;
write(‘Nhap n=’); readln(n);
if n>1 then
begin
dem:=0;
for i:=1 to n do
if n mod i=0 then inc(dem);
if dem>2 then writeln(n,’ la hop so’)
else writeln(n,’ khong la hop so’);
end
else writeln(n,’ khong la hop so’);
readln;
end.
Bài 2:
uses crt;
var a:array[1..100]of integer;
n,i,t:integer;
begin
clrscr;
write(‘Nhap n=’); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(‘Trung binh cong cac so da nhap la: ‘,t/n:4:2);
readln;
end.
Bài 3:
uses crt;
var x:array[1..100]of integer;
n,i,t:integer;
begin
clrscr;
write(‘Nhap n=’); readln(n);
for i:=1 to n do
begin
write(‘X[‘,i,’]=’); readln(x[i]);
end;
t:=0;
for i:=1 to n do
if x[i] mod 3=0 then t:=t+x[i];
writeln(‘Tong cac so chia het cho 3 la: ‘,t);
readln;
end.