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 Tinh_Tong;
var n, s, i: integer;
begin
write('Nhap vao so nguyen duong n: ');
readln(n);
s := 0;
i := 1;
while i <= n do
begin
s := s + i;
i := i + 1;
end;
writeln('Tong cua ', n, ' so tu nhien dau tien la: ', s);
end.
Var i,s:integer;
Begin
i:=0;
While s<=1000 do
Begin
i:=i+1;
s:=s+i;
End;
Write('n nho nhat la ',i);
Readln;
End.
var i,n:integer;
s:real;
begin
write('Nhap n = ');readln(n);
for i:=1 to n do
s:=s+1/(3*i+2);
write('Tong la ',s:10:2);
readln;
end.
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
i:=1;
while i<=n do
begin
s:=s*i;
i:=i+1;
end;
writeln(s:0:0);
readln;
end.
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 n,t:integer;
begin
clrscr;
n:=0; t:=0;
while t<=100 do
begin
n:=n+1;
t:=t+n;
end;
writeln(n);
readln;
end.