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.

1.

Var i ,n : integer;

S , T : real;

Begin

Write ('n:') ;

Read (n) ;

S:= 0;

T:= 1;

For i:= 1 to n do

S:= S + i;

T:= T * i;

Writeln (' Tong cua ' ,n,' , S );

Writeln (' Tich của ' ,n,', T );

Readln;

End.

2.

program SumAndProductOfNumbers;

var
  n, m, i, sum, product: integer;

begin
  writeln('Enter the values of n and m: ');
  readln(n, m);
  
  sum := 0;
  product := 1;
  
  for i := n to m do
  begin
    sum := sum + i;
    product := product * i;
  end;
  
  writeln('The sum of numbers from ', n, ' to ', m, ' is: ', sum);
  writeln('The product of numbers from ', n, ' to ', m, ' is: ', product);
end.

3.

program SumAndProductOfNumbers;

var
  i, sum, product: integer;

begin
  sum := 0;
  product := 1;
  
  for i := 10 to 25 do
  begin
    sum := sum + i;
    product := product * i;
  end;
  
  writeln('The sum of numbers from 10 to 25 is: ', sum);
  writeln('The product of numbers from 10 to 25 is: ', product);
end.

Program HOC24;

var i: byte;

t: longint;

begin

t:=1;

for i:=1 to 50 do t:=t*i;

write('Ket qua la: ',t);

readln

end.

Tham khảo:

Program bai_tap;

Uses crt;

Var i:integer;

Begin

clrscr;

For i:=1 to 50 writeln(i);

readln;

End.

1x2x3x..x100

uses crt;

var i:integer;

s:real;

begin

clrscr;

s:=1;

for i:=1 to 100 do 

  s:=s*i;

writeln(s:0:0);

readln;

end.

Program viet_chuong_trinh_tinh_tong;
Uses Crt; 
Var i,s:integer; 
Begin 
Clrscr; 
i:=2; 
While (i>1) and (i<=100) do 
Begin 
s:=s+i; 
i:=i+2; 
End; 
Writeln(S); 
Readln; 
End.

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 30 do 

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

writeln(t);

readln;

end.

Program HOC24;

var i,n: integer;

tong,tich: longint;

begin

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

tong:=0; tich:=1;

for i:=1 to n do 

begin

tong:=tong+i;

tich:=tich*i;

end;

writeln('Tong la: ',tong);

write('Tich la: ',tich);

readln

end.

program TinhTongTichTu1DenN;
var n, i: integer;
       tong, tich: longint;
begin
  tong := 0;
  tich := 1;

  write('Nhap vao n: ');
  readln(n);
  for i := 1 to n do
  begin
    tong := tong + i;
    tich := tich * i;
  end;

  writeln('Tong cac so tu 1 den ', n, ': ', tong);
  writeln('Tich cac so tu 1 den ', n, ': ', tich);

  readln;
end.

2:

#include <bits/stdc++.h>

using namespace std;

long long n,i;

int main()

{

cin>>n;

for (i=1; i<=n; i++)

if (n%i==0) cout<<i<<" ";

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long i,s;

int main()

{

s=1;

for (i=5; i<=50; i++) s=s*i;

cout<<s;

return 0;

}

Var s,i:longint;

Begin

s:=1;

For i:=5 to 50 do

s:=s*i;

Write('Tich la ',s);

Readln;

End.

c1: 

#include <bits/stdc++.h>

using namespace std;

long long i,n,s;

int main()

{

cin>>n;

s=1;

for (i=1; i<=n; i++) s=s*i;

cout<<s;

return 0;

}

Câu 2: 

#include <bits/stdc++.h>

using namespace std;

long long i,n,s;

int main()

{

cin>>n;

s=1;

for (i=1; i<=n; i++) if (i%2==0) s=s*i;

cout<<s;

return 0;

}

Đề thi cuối kì 1 đây  

uses crt;

var i,s:longint;

begin

clrscr;

s:=1;

for i:=1 to 10 do

s:=s*i;

writeln(s);

readln;

end.