Question

[Nguyen Vo Song Nga]

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.

Answer 1

[Nguyễn Lê Phước Thịnh]

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.

Answer 2

[Lê Minh Sang]

Mai tớ cũng vậy :")