program TinhKhoiLuongXe;
var
  i, khoi_luong, tong_khoi_luong: integer;
begin
  tong_khoi_luong := 0;
  for i := 1 to 5 do
  begin
    writeln('Nhap khoi luong xe ', i, ': ');
    readln(khoi_luong);
    tong_khoi_luong := tong_khoi_luong + khoi_luong;
  end;
  writeln('Tong khoi luong cua 5 xe la: ', tong_khoi_luong);
  readln;
end.

uses crt;

var i,n,x,s:integer;

begin

clrscr;

readln(n);

s:=1;

for i:=1 to n do

begin

readln(x);

s:=s*x;

end;

writeln(s);

readln;

end.

uses crt;

var n,i:integer;

      s:longint;

begin

clrscr;

writeln('nhap n:');readln(n);

for i:=1 to n do s:=s*i;

write('tich cua ',n,'so tu nhien dau tien la:',s);

readln;

end.

program dem_so_lan_xuat_hien;

uses crt;

var

     A: array[1..100] of integer;

     N, X, i, count: integer;

begin

     clrscr;

     write('Nhap so phan tu mang A: '); readln(N);

     for i := 1 to N do

     begin

          write('A[',i,'] = ');

          readln(A[i]);

     end;

     write('Nhap gia tri can tim x: '); readln(X);

     count := 0;

      for i := 1 to N do

     begin

          if A[i] = X then

               count := count + 1;

     end;

     writeln('So lan xuat hien cua ', X, ' trong mang A la: ', count);

     readln;

end.

Uses crt;
Var a,b :byte;
Begin
Clrscr;
For a:=2 to 9 do
    Begin
          For b:=1 to 10 do writeln ( a,’x’,b,’=’,a*b);
            Delay(1000); { tam dung sau moi cuu chuong duoc in ra }
            Writeln; { ngan cach cac bang cuu chuong }
      End;
   Readln
End.

_{* bạn thử chạy chương trình ra nhé , chúc học tốt!!}

dza tớ chạy đc rồi, cảm on cou nhé:D

program tinh_toan;

uses crt;

var S;i:integer;

begin

S:=0;

for i:=2 to 100 do S:=S+1/i;

writeln(S);

readln;

end.

Var i,n:integer;

s:real;

Begin

Write('n = ');readln(n);

For i:=2 to n do s:=s+1/i;

Write('tong la ',s:10:2);

Readln;

End.

program TinhTong;

var

     i: Integer;

     s: Real;

begin

     s := 0;

     for i := 1 to 8 do

     begin

          s := s + 1 / i;

     end;

     writeln('Tong la: ', s:0:2);

     readln;

end.

Var i,n,d:integer;

Begin

Write('Nhap so can kiem tra ');readln(n);

For i:=1 to n do

If n mod i = 0 then d:=d+1;

If d = 2 then write(n,' la so nguyen to')

Else write(n,' khong la so nguyen to');

Readln

End.

Var i,n:integer;

s,so:real;

Begin

Write('Nhap so luong so thuc ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(so);

s:=s+so;

End;

Write('Tong la ',s:10:2);

Readln

End.

câu 3 . C Mỗi ngày em thức dậy lúc 5 giờ sáng

câu 3 . C Mỗi ngày em thức dậy lúc 5 giờ sáng

Program HOC24;

Uses crt;

var i,j: integer;

j:=1; i:=0;

while(j<=50) do

begin

j:=j+1;

if(j mod 2=0) then i:=i+j;

end;

writeln(i);

readln;

end.