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.
Program HOC24;
var i,n,t: integer;
begin
n:=1; t:=0;
while t<=500 do
begin
t:=t+n;
n:=n+1;
end;
writeln('Tong la: ',t);
write('So N nho nhat de tong lon hon 500 la: ',n);
readln
end.
*Cách khác: Dùng Repeat Until
uses crt;
var n,t:integer;
begin
clrscr;
t:=0;
n:=0;
repeat
n:=n+1;
t:=t+n;
until t>500;
writeln(t);
writeln(n);
readln;
end.
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
i:=0;
while i<=50 do
begin
i:=i+2;
t:=t+i;
end;
writeln(t);
readln;
end.
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ỉ?
n = int(input('Nhập số n lớn hơn 2: '))
tong = 0
i = 2
while i <= n:
tong += i
i += 1
print('Tổng các số từ 2 đến', n, 'là:', tong)
uses crt;
var s:real;
n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+1/i;
i:=i+2;
end;
writeln('S=',s:4:2);
readln;
end.
Program HOC24;
var i,n,t: integer;
begin
t:=0; i:=1;
while t<=500 do
begin
t:=t+i;
i:=i+1;
end;
write('Ket qua la: ',t);
readln
end.