Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Uses crt;
var i,t: integer;
begin clrscr;
i:=0;
while(i<=120) do begin
i:=i+1;
t:=t+i;
end;
write(t);
readln;
end.
Lời giải :
Câu 1 :
program hotrotinhoc ;
var i,tong : integer ;
begin
tong:=0; i:=0;
while i<=100 do
begin
i:=i+1;
tong:=tong+i;
end;
write('tong 100 so tu nhien dau tien la:',tong);
readln
end.
Câu 2 :
program hotrotinhoc ;
var i,n,tich : integer ;
begin
write('n='); readln(n);
tich:=0; i:=0 ;
while i<=n do
begin
i:=i+1;
tich:=tich*i;
end;
write('tich n so tu nhien dau tien la',tich);
readln
end.
uses crt;
var i,n,t:integer;
begin
clrscr;
readln(n);
t:=0; i:=1;
while (i<=n) do
begin
if n mod i=0 then t:=t+i;
i:=i+1;
end;
writeln(t);
readln;
end.
Tham khảo:
Uses crt;
Var S, i: integer;
Begin
clrscr;
S : = 0;
i := 1;
while i <= 10 do
begin
S := S + i;
i := i + 1;
end;
writeln (S);
readln;
end.
tính số vòng lặp i . còn tổng s không qá 100
\ntổng s được tính như thế nào ?