uses crt;

var i,t:integer;

begin

clrscr;

i:=1;

t:=0;

repeat

  t:=t+i;

inc(i);

until t>=100;

writeln(t);

readln;

end.

Em ghi đề chính xác lại

đề:viết chương trình tính tổng các số tự nhiên đầu tiên cho đến khi tổng đó bằng 10 thì dừng lại. vậy đúng chưa

Đáp án là 10 rồi còn gì em

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.

câu 1:

uses crt;

var p,i:integer;

begin

clrscr;

p:=1;i:=1;while i<=5 do

begin

p:=p*i;i:=i+1;

end;

write(p);

readln;

end. 

bai 2:

uses crt;var p,i:integer;begin    clrscr;    p:=1; i:=0;    while i <=10 do    begin

i:=i+1;        if (i mod 2<>0) then p:=p*i;    end;    write(p);    readln;end. bai 3:

uses crt;var n,i,p:integer;begin     clrscr;     write('nhap n: ');     readln(n);     i:=1;     p:=1;     while i<=n do     begin       if i mod 2=0 then p:=p*i;       i:=i+1;     end;     write(p);     readln;end.     

*Cách khác: Dùng for

Câu 1: 

uses crt;

var p,i:longint;

begin

p:=1;

for i:=1 to 4 do 

  p:=p*i;

writeln(p);

readln;

end.

Câu 2: 

uses crt;

var i,s:longint;

begin

clrscr;

s:=1;

for i:=1 to 10 do

  if i mod 2=1 then s:=s*i;

writeln(s);

readln;

end.

Câu 3: 

uses crt;

var n,i,s:longint;

begin

clrscr;

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

s:=0;

for i:=1 to n do 

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

writeln(s);

readln;

end.

Tổng n số tự nhiên đầu tiên:

Var i,n,s:integer;

Begin

Write('n = ');

for i:=1 to n do

s:=s+i;

Write('Tong la ',s);

Readln

End.

Tích các số từ 5 đến 30

Var i,p:longint;

Begin

p:=1;

For i:=5 to 30 do

P:=p*i;

Write('Tich la ',p);

Readln

End.

Chu vi, diện tích hình chữ nhật:

var a,b,p,s:real;

begin

write('Chieu dai hcn = ');readln(a);

write('Chieu rong hcn = ');readln(b);

p:=(a+b)*2;

s:=a*b;

writeln('Chu vi hcn la ',p:10:2);

write('Dien tich hcn la ',s:10:2);

readln

end.

------------------------------------------------------------

Chu vi, diện tích hình tròn:

var r,c,s:real;

begin

write('Ban kinh = ');readln(r);

c:=2*3.14*r;

s:=3.14*r*r;

writeln('Chu vi hinh tron la ',c:10:2);

write('Dien tich hinh tron la ',s:10:2);

readln

end.

---------------------------------------------------

Chu vi, diện tích hình thang:

var dl,dn,cb1,cb2,h,p,s:real;

begin

write('Day lon = ');readln(dl);

write('Day be = ');readln(db);

write('Chieu cao = ');readln(h);

write('Canh ben thu nhat = ');readln(cb1);

write('Canh ben thu hai = ');readln(cb2);

p:=dl+db+cb1+cb2;

s:=(dl+db)*h/2;

writeln('Chu vi hinh thang la ',p:10:2);

write('Dien tich hinh thang la ',s:10:2);

readln

end.

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=1;

for (int i=1; i<=n; i++) t=t*i;

cout<<t;

return 0;

}