1. Viết chương trình nhập vào 1 số nguyên N tính tổng các số tự nhiên chẵn \(\le\) N
2. Viết nhập vào 1 số tự nhiên N>0. Đếm xem có bao nhiêu số \(\le\)N \(⋮\)3
3. Viết chương trình tính biểu thức
A=\(\frac{1}{1.3}+\frac{1}{2.5}+\frac{1}{3.7}+........+\frac{1}{2+n+1}\)
4. Viết chương trình nhập vào 1 số nguyên N cho biết N có phải là số nguyên tố không.
Bài 1:
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=0 to n do
if i mod 2=0 then t:=t+a[i];
writeln('Tong cac so chan nho hon hoac bang ',n,' la: ',t);
readln;
end.
Bài 2:
uses crt;
var i,n,dem:integer;
begin
clrscr;
repeat
write('Nhap n=');readln(n);
until n>0;
dem:=0;
for i:=0 to n do
if i mod 3=0 then inc(dem);
writeln('So so chia het cho 3 nho hon hoac bang ',n,' la: ',dem);
readln;
end.
Bài 3:
uses crt;
var a:real;
n,i:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
a:=0;
for i:=1 to n do
a:=a+1/(i*(2*i+1));
writeln('Ket qua la: ',a:4:2);
readln;
end.
Bài 4:
uses crt;
var n,i,kt:integer;
begin
clrscr;
Repeat
write('Nhap n='); readln(n);
Until n>1;
kt:=0;
for i:=2 to n-1 do
if n mod i=0 then kt:=1;
if kt=0 then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to');
readln;
end.
GIÚP TỚ VỚI, MAI TỚ KIỂM TRA MỘT TIẾT RỒI
