Lập trình đơn giản

program SumOfNumbers;

uses crt;

var
  n, i, sum: integer;
  numbers: array[1..100] of integer;

begin
  clrscr;
  write('Enter n: ');
  readln(n);

  // Tạo mảng các số tự nhiên từ 1 đến n
  for i := 1 to n do
    numbers[i] := i;

  // Tính tổng các số tự nhiên từ 1 đến n
  sum := 0;
  for i := 1 to n do
    sum := sum + numbers[i];

  writeln('The sum of the first ', n, ' natural numbers is: ', sum);
  readln;
end.

Uses crt;

Var s, i: Integer;
Begin
  S := 0;
  For i := 1 to 100 do
  Begin
    S := S + i;
  End;
  Writeln('Gia tri cua tong S = ', s);
  Readln;
End.

Program HOC24;

var t,n: integer;

begin

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

while n<>0 do

begin

t:=t+(n mod 10);

n:=n div 10;

end;

write('Tong cac chu so cua ',n,' la: ',t);

readln

end.

Bạn phải cho điều kiện chứ

Var
i,s,n:LongInt;
begin
Write(n);
S:=0
i:=0
While n<1000 do
S:=S+i;
i:=n mod 10;
end;
Write(S);
End.
Chúc bạn học tốt!

S = 0 + 2*1 + 2*2 + 2*3 = 2 + 4 + 6 = 12 -> A

Đoạn chương trình trên tính tổng của 3 số chẵn liên tiếp nhau, bắt đầu từ 2.

Thứ tự tính toán như sau:

Vậy kết quả in lên màn hình là A. 12.

Giá trị của biến J bằng 32

Program Tong__nghich__dao;

Var

n,i:real;

S:Integer;

Begin

Write('Nhap n=');Readln(n);

S:=0;

For i:=1 to n do S:=S+1/i;

Write('Tong can tim la: ', S:6:2);

Readln;

End.

Program HOC24;

var a,b: integer;

D: longint;

begin

write('Nhap a: '); readln(a);

write('Nhap b: '); readln(b);

D:=2*(a+b);

write('D = ',D);

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!!}