Bài 2: Cho mảng A gồm N phần tử kiểu số nguyên (N <= 200). Viết chương trình nhập dữ liệu vào từ bàn phím cho mảng A. Sau đó thực hiện đếm số phần tử chia hết cho 3 của mảng A. Rồi hiển thị kết quả ra màn hình.
Bài 3: Viết chương trình nhập vào từ bàn phím một dãy số gồm N số nguyên (N<=30). Sau đó tính tích các phần tử chia hết cho 2 của dãy số đó. Rồi hiển thị kết quả ra màn hình.
Bài 4: Cho tệp văn bản ‘vidu.inp’ chứa giá trị của a và b. Biết rằng các giá trị này được phân cách nhau bởi một dấu cách. Viết chương trình thực hiện đọc dữ liệu từ tệp ‘vidu.inp’. Sau đó tính giá trị biểu thức S= a+2b. Rồi ghi giá trị của S ra tệp ‘vidu.out’
Bài 5: Viết chương trình thực hiện tính tổng sau:
S= 1+ 1/22+1/32+1/42+…+1/N2
Bài 2:
Program HOC24;
var a: array[1..200] of integer;
i,d,n: integer;
begin
write('Nhap so phan tu N: '); readln(N);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:=1 to n do if a[i] mod 3=0 then d:=d+1;
write('Co ',d,' phan tu chia het cho 3');
readln
end.
Bài 3:
Program HOC24;
var a: array[1..30] of integer;
i,d,n: integer;
begin
write('Nhap so phan tu N: '); readln(N);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
d:=1;
for i:=1 to n do if a[i] mod 2=0 then d:=d*a[i];
write(Tich cac phan tu chia het cho 2 la: ',d);
readln
end.
Baif 4:
Program HOC24;
const fi='vidu.inp'
fo='vidu.out'
var f: text;
a,b: integer;
s: longint;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,a,b);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
s:=a+2*b;
write(f,s);
close(f);
end;
begin
ip;
out;
end.
Bài 5:
Program HOC24;
var s: real;
i,n: integer;
begin
write('Nhap N: '); readln(N);
s:=0;
for i:=1 to n do s:=s+1/(i*i);
write('S= ',s:1:2);
readln
end.
