uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 20 do 

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

writeln('Tong cac so chan trong khoang 20 so tu nhien dau tien la: ',s);

readln;

end.

program sum_of_naturals;

var
  i, n, sum: integer;

begin
  write('Enter a positive integer: ');
  readln(n);
  
  sum := 0;
  
  for i := 1 to n do
  begin
    sum := sum + i;
  end;
  
  writeln('The sum of the first ', n, ' natural numbers is ', sum);
end.

Var i,n:integer;

p:longint;

Begin

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

p:=0;

For i:=2 to n do p:=p*i;

Write('Tich la ',p);

Readln;

End.

Var i,n:integer;

p:longint;

Begin

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

p:=1;

For i:=2 to n do p:=p*i;

Write('Tich la ',p);

Readln;

End.

tk:

https://hoc247.net/hoi-dap/tin-hoc-8/viet-chuong-trinh-tinh-tong-100-so-tu-nhien-dau-tien-faq247722.html

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.

uses crt;

var x,t,i:integer;

begin

clrscr;

t:=0;

repeat

readln(x);

t:=t+x;

until x=0;

write(t);

readln;

end.

Thì tính kiểu gì ạ🥶🥶🥶

chưa hiểu vấn đề@@@
xin input và output của bài đc không

Sửa đề: Đến khi tích đó lớn hơn 100 thì dừng lại

uses crt;

var s,i:integer;

begin

clrscr;

s:=1;

i:=1;

while s<=100 do

begin

i:=i+1;

s:=s*i;

end;

writeln(s);

readln;

end.