*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 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.

Bn xem đúng k nhé:

Bước 1: MAX =60 I=1Bước 2: nếu MAX >I thì I:= I+1 , ngược lại kết thúc chương trìnhBước 3: nếu MAX > I kết thúc chương trìnhINPUT: 60 số tự nhiên đầu tiênOUTPUT: tính tổng

Chúc bn hok tốt~~

Bước 1: Tong←0; i←1;

Bước 2: Nếu i > 60 in ra Tong của 60 số tự nhiên đầu tiên và kết thúc

Bước 3: Nếu i chia 2 dư 0 thì T ← T + i;

Bước 4: i← i + 1, quay lại bước 2

Bước 1: t←0; i←1;

Bước 2: nếu i mod 2=0 thì t←t+i;

Bước 3: i←i+1;

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

Bước 5: Xuất t

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

Mô tả thuật toán: 

-Bước 1: i←0; s←1;

-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 thì kiểu dữ liệu của 100 số tự nhiên đầu tiên là lớn quá bạn

*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 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.

Input: 10 số tự nhiên đầu tiên

Output: Tổng của chúng

INPUT : 50 số tự nhiên đầu tiên

OUTPUT : Tính tổng của nó

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

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

write(t);

readln;

end.