Viết chương trình tính tích của các số từ 1 đến 35 in ra màn hình tích đó
( dùng câu lệnh While.. do và For… to.. do)
nhanh giúp e vs ạ
Viết chương trình tính tích của các số từ 1 đến 35 in ra màn hình tích đó
( dùng câu lệnh While.. do và For… to.. do)
nhanh giúp e vs ạ
Program Hotboy ;
Uses crt;
Var i,s : longint;
Begin
S:=1;
For i:=1 to 35 do
S:=S*i;
Writeln(‘tich tu 1 den 35 la’,s);
Readln
End.
Cách dùng câu lệnh for…to….do :
Uses crt;
Var i, S : Longint;
Begin clrscr;
S :=1;
For i := 1 to 35 do S := S*i ;
Writeln(‘Tich cua cac so tu 1 den 35 la :’, S );
Readln
End.
Cách dùng câu lệnh While….do :
Uses crt;
Var i, S : Longint;
Begin clrscr;
S :=1;
While i <= 35 do
Begin
i:= i+1 ; S:= S*i;
End;
Writeln(‘Tich cua cac so tu 1 den 35 la :’, S );
Readln
End.