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.

uses crt;

var i,t:integer;

begin

clrscr;

i:=1;

t:=0;

repeat

  t:=t+i;

inc(i);

until t>=100;

writeln(t);

readln;

end.

tự làm là nhanh nhất

ai đòng ý xin 1 ý kiến

1.

program tinhtong;

uses crt;

var s,i,n:integer;

begin

s:=0;

for i:=1 to 10 do s:=s+1;

writeln ('tong cua s=',s);

readln

end.

2.

program tinhtong;

uses crt;

var i,L,s:integer;

begin

write('nhap gia tri L='); readln(L);

s:=0;

for i:=1 to L do s:=s+1;

writeln('tong cua s=',s);

readln

end.

Gọi số cần tìm là \(\overline{ab}\left(a,b\in N;5\le a,b\le9\right)\).

Theo bài ra ta có a + b = 14.

\(\overline{ba}-\overline{ab}=18\Leftrightarrow\left(10b+a\right)-\left(10a+b\right)=18\Leftrightarrow9\left(b-a\right)=18\Leftrightarrow b-a=2\).

Kết hợp với a + b = 14 ta có \(b=\dfrac{14+2}{2}=8;a=6\). (TMĐK)

Vậy số cần tìm là 68.

THAM KHẢO

Số ban đầu: 10a+b
Số lúc sau: 10b+a
Theo bài ra: (10b+a) - (10a+b) =18 hay b-a=2
Mà a+b=14. Suy ra a=6, b=8
Vậy số cần tìm là 68

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.