Cho 1 số tự nhiên n và S=1*1/n*2/n*...*n/n. Viết hoạt động và chương trình cả hai câu lệnh for to do và while do. Các bạ...

Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

Chọn lớp

Chọn môn

Mua vip

Dolce and garbana

17 tháng 3 2021

Cho 1 số tự nhiên n và S=1*1/n*2/n*...*n/n. Viết hoạt động và chương trình cả hai câu lệnh for to do và while do. Các bạn giúp mình với mai mình kiểm tra bài này

#Tin học lớp 8

Bùi Anh Tuấn

17 tháng 3 2021

Đúng(0)

Bùi Anh Tuấn

17 tháng 3 2021

Đúng(0)

Các câu hỏi dưới đây có thể giống với câu hỏi trên

Cao phong Ngô hữu

24 tháng 4 2023

Hãy viết chương trình tính tổng tích, của các số tự nhiên từ 1 đến N (n được nhập từ bàn phím) bằng cách dùng câu lệnh For...do hoặc While...do?

Giúp em với còn 1 câu này nữa là em xong bài rồi

#Tin học lớp 8

Trường Nguyễn

1 tháng 4 2022

Viết chương trình tính tổng nghịch đảo N số tự nhiên S= 1+1/2+1/3+...+1/N với N được nhập từ bàn phím. (sử dụng câu lệnh lặp for...do hoặc while...do...). Giúp e với ạ

#Tin học lớp 8

Minh Lệ

1 tháng 4 2022

Program HOC24;

var i,n: integer;

S: real;

begin

write('Nhap N: '); readln(n);

s:=0;

for i:=1 to N do s:=s+1/i;

write('S= ',s:5:2);

readln

end.

Đúng(0)

Trần trung hiếu

21 tháng 2 2021

Câu 1: Khi thực hiện câu lệnh lặp for,to, do máy tính kiểm tra một điều kiện, điều kiện cần phải kiểm tra là gì?Câu 2: Em hãy mô tả thuật toán và viết chương trình nhập vào một số tự nhiên n khác 0. Tìm tất cả các ước của n.Câu 3: Em hãy mô tả thuật toán và viết chương trình nhập vào một số tự nhiên n khác 0. Đếm tất cả các ước của n.Câu 4: Em hãy mô tả thuật toán và viết chương trình nhập vào một số...

Đọc tiếp

#Tin học lớp 8

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

21 tháng 2 2021

P/s: ở đây mình chỉ viết chương trình thôi, còn thuật toán bạn có thể suy ra từ chương trình nhé:

Câu 2:

uses crt;

var n,i:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

if n mod i=0 then write(i:4);

readln;

end.

Câu 3:

uses crt;

var n,i,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

dem:=0;

for i:=1 to n do

if n mod i=0 then dem:=dem+1;

writeln('So uoc cua ',n,' la: ',dem);

readln;

end.

Câu 4:

uses crt;

var n,i,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

t:=0;

for i:=1 to n do

if n mod i=0 then t:=t+i;

writeln('Tong cac uoc cua ',n,' la: ',t);

readln;

end.

Câu 5:

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

write('Nhap n='); readln(n);

s:=1;

for i:=1 to n do

if n mod i=0 then s:=s*i;

writeln('Tich cac uoc cua ',n,' la: ',s:4:2);

readln;

end.

Câu 6:

uses crt;

var n,i,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

t:=0;

for i:=1 to n do

if i mod 2=0 then t:=t+i;

writeln('Tong cac so chan trong khoang tu 1 den ',n,' la: ',t);

readln;

end.

Câu 8:

uses crt;

var n,i,kt:integer;

begin

clrscr;

write('Nhap n='); readln(n);

kt:=0;

for i:=2 to trunc(sqrt(n)) do

if n mod i=0 then kt:=1;

if (kt=0) and (n>1) then writeln(n,' la so nguyen to')

else writeln(n,' khong la so nguyen to');

readln;

end.

Đúng(2)

Sinphuya Kimito

28 tháng 3 2022

Viết chương trình in ra các ước số của N bằng câu lệnh For...do và While...do

Cứu mình!

#Tin học lớp 8

Sinphuya Kimito

28 tháng 3 2022

Đúng(0)

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

28 tháng 3 2022

uses crt;

var i,n:integer;

begin

clrscr;

readln(n);

for i:=1 to n do if n mod i=0 then write(i:4);

readln;

end.

Đúng(1)

Hùng Bùi

23 tháng 3 2023

viết chương trình tính tổng các số tự nhiên từ 1 đến N. Với số N là số tự nhiên bất kì do người sử dụng nhập và N > 5 lưu ý: sử dụng câu lệnh lặp For...do

#Tin học lớp 8

Minh Lệ

24 tháng 3 2023

Program HOC24;

var i,n: integer;

S:longint;

begin

write('Nhap n: '); readln(n);

s:=0;

for i:=1 to n do s:=s+i;

write('Tong la ',s);

readln

end.

Đúng(1)

Le Van Dai

4 tháng 5 2023

Hãy viết chương trình tính tổng tích, của các số tự nhiên từ 1 đến N (n được nhập từ bàn phím) bằng cách dùng câu lệnh For...do hoặc While...do?

#Tin học lớp 8

Phía sau một cô gái

4 tháng 5 2023

program TinhTongTich;

var

N, i, Tong, Tich:integer;

begin

writeln('Nhap so nguyen duong N:');

readln(N);

i:=1;

Tong:=0;

Tich:=1;

while i<=N do

begin

Tong:=Tong+i;

Tich:=Tich*i;

i:=i+1;

end;

writeln('Tong cac so tu 1 den ', N, ' la: ', Tong);

writeln('Tich cac so tu 1 den ', N, ' la: ', Tich);

readln;

end.

Đúng(0)

daukhacgiabao

15 tháng 3 2023

Câu 3: Viết chương trình tính tổng S= 1+1/2^2+1/3^3+...+1/n^2 với n N*cho trước (Sử dụng vòng lặp while..do)Các bạn giúp mình được không...

Đọc tiếp

#Tin học lớp 8

NGUYỄN LÊ XUÂN THỊNH

22 tháng 2 2023

(Viết chương trình Pascal sử dụng câu lệnh while...do)

1. Viết chương trình nhập vào 1 dãy gồm n số nguyên và tính tổng, trung bình của dãy vừa nhập.

2. Viết chương trình nhập 1 số nguyên x, kiểm tra số vừa nhập có phải số nguyên tố hay không.

#Tin học lớp 8

Kiều Vũ Linh

23 tháng 2 2023

Bài 1

Var s,i:integer;

tb:real;

Begin

Write('Nhap n = ');readln(n);

i:=1;

s:=0;

While i<=n do

Begin

s:=s+i;

i:=i+1;

End;

tb:=s/n;

Writeln('Tong la ',s);

Write('Trung binh la ',tb:10:2);

Readln;

End.

Đúng(2)

Kiều Vũ Linh

23 tháng 2 2023

Bài 2

Var i,n,souoc:integer;

Begin

Write('Nhap n = ');readln(n);

i:=1;

While i <= n do

Begin

i:=i + 1;

If n mod i = 0 then souoc:=souoc + 1;

End;

If souoc = 1 then write(n,' la so nguyen to')

Else write(n,' khong la so nguyen to');

Readln;

End.

Đúng(2)

Thanh Thanh

21 tháng 2 2023 - olm

Viết chương trình ( sử dụng while...do hoặc for...do)

Bài 1: tính s=5+6+10+19+...+n

Bài 2: tính s=2+1/4+1/9+1/16+...+1/n

Giúp mình với ạ

#Tin học lớp 8

Chúng tôi đề xuất

Tài nguyên

Ứng dụng mobile

Bảng xếp hạng

Các khóa học có thể bạn quan tâm

Yêu cầu VIP