Mô tả thuật toán và viết chương trình tính tổng nghịch đảo của 100 số tự nhiên đầu tiên

Trả lời:

Mô tả thuật toán: 

- Bước 2: i←i+1;

- Bước 3: s←s*i;

- Bước 4: Nếu i<=100 thì quay lại bước 2

- Bước 5: Xuất s

- Bước 6: Kết thúc

Viết chương trình:

Program tinh;

Uses crt;

Var s: longint;       

       i: integer;

Begin

Clrscr;

s:=1;

For i:=1 to 100 do s:=s*i;

Writeln(s);

Readln;

End.

Chúc bn hc tốt!!!

*Mô tả thuật toán:

- Bước 1: s <- 1

- Bước 2: i <- 1 đến 100 thì s <- s*i

- Bước 3: Xuất s

- Bước 4: Kết thúc thuật toán

Viết phương trình

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

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

s:=0;

for i:=1 to n do

s:=s+1/i;

writeln('tong nghich dao cac so tu 1 toi ',n,' la: ',s:4:2);

readln;

end.