Question

Viết Chương Trình tính tích các số tự nhiên đầu tiên cho đến khi tích đó bằng 100 thì dừng lại

Answer 1

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

Answer 2

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

Answer 3

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.