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.

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

#include <bits/stdc++.h>

using namespace std;

long long i,t;

int main()

{

t=0;

for (i=1; i<=10; i++) t=t+i;

cout<<t;

return 0;

}

program bai1;

uses crt;

var a,b,c,s: real;

begin

clrscr;

write('nhap so thu nhat ='); readln(a);

write('nhap so thu hai ='); readln(b);

write('nhap so thu ba ='); readln(c);

s:=a+b+c;

writeln('tong ba so a,b,c =',s:4:2);

readln;

end.

program bai1;

uses crt;

var n: integer;

begin

clrscr;

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

if n mod 2 = 0 then

writeln('la so chan ') else

writeln('la so le ');

readln;

end.

bài 3 :

B1: S <- 0 ; i<-0;

B2: i<- i+1;

B3: Nếu i <= 100 thì S:=S+i; Và quay lại B2.TRong trường hợp ngược lại thông bào kết quả rồi kết thúc thuật toán.

Đề sai rồi bạn