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.
Tính tổng N số tự nhiên đầu tiên với N nhập từ bàn phím chứ bạn nhỉ?
while..do
Program HOC24;
uses crt;
var i,n: integer;
S: longint;
begin
clrscr;
write('Nhap N: '); readln(n);
i:=0; s:=0;
while i<n do
begin
i:=i+1;
s:=s+i*(i+1);
end;
write('S=',S);
readln
end.
+)Vòng lặp thứ nhất: lặp khi i=1, cộng giá trị hiện tại của S với i, ta có S = 0 + 1 = 1.
+)Vòng lặp thứ hai: lặp khi i=2, cộng giá trị hiện tại của S với i, ta có S = 1 + 2 = 3.
+)Vòng lặp thứ ba: lặp khi i=3, cộng giá trị hiện tại của S với i, ta có S = 3 + 3 = 6.
+)Vòng lặp thứ tư: lặp khi i=4, cộng giá trị hiện tại của S với i, ta có S = 6 + 4 = 10.
+)Vòng lặp thứ năm: lặp khi i=5, cộng giá trị hiện tại của S với i, ta có S = 10 + 5 = 15.
Sau khi kết thúc vòng lặp, giá trị hiện tại của i sẽ là 6 và giá trị hiện tại của S sẽ là 15.
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln(s);
readln;
end.
Program HOC24;
Uses crt;
var i,j: integer;
j:=1; i:=0;
while(j<=50) do
begin
j:=j+1;
if(j mod 2=0) then i:=i+j;
end;
writeln(i);
readln;
end.
Tham khảo:
Program BTH;
uses crt;
var i,n,s:longint;
Begin
clrscr;
write('Nhap n: ');readln(n);
i:=1;
While i<>n do
Begin
If i mod 2=0 then s:=s+i;
i:=i+1;
end;
writeln('Tong day so tren la: ',s);
readln;
end.
program tinh_tong_chan;
uses crt;
Var i,N,S: integer;
begin
clrscr;
writeln('nhap so n');
readln(N);
S:=0;
i:=1;
while i <= N do
begin
S:=S+i;
i:=i+1;
end;
Writeln('tong la: ',S);
readln;
end.
đây bạn nha
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.