Bài 8. Lặp với số lần chưa biết trước

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
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.

Nguyễn Lê Phước Thịnh
21 tháng 5 2020 lúc 21:38

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.

Nguyen Vo  Song Nga
21 tháng 5 2020 lúc 20:30

GIÚP TỚ VỚI, MAI TỚ KIỂM TRA MỘT TIẾT RỒI


Các câu hỏi tương tự
NGUYỄN LÊ XUÂN THỊNH
Xem chi tiết
huỳnh duy cát
Xem chi tiết
hoho209
Xem chi tiết
Bích Trang
Xem chi tiết
Nguyễn Thị Ngọc Oanh
Xem chi tiết
nguyễn thị như ý
Xem chi tiết
Linh lung
Xem chi tiết
Yết Thiên
Xem chi tiết
huynh phuong
Xem chi tiết