Viết chương trình tính tổng N số tự nhiên đầu tiên sao cho tổng lớn hơn 1200 thì dừng xuất ra số tự nhiên N và tổng S tính được
=>Vote 5 sao cho ạ:3
Viết chương trình tính tổng N số tự nhiên đầu tiên sao cho tổng lớn hơn 1200 thì dừng xuất ra số tự nhiên N và tổng S tính được
=>Vote 5 sao cho ạ:3
$#Quan$
program bai_giai;
uses crt;
var n,s:integer;
begin
clrscr;
n:=0; s:=0;
while s<=1200 do
begin
n:=n+1;
s:=s+n;
end;
write(‘N= ‘,n,’ va S= ‘,s);
readln;
end.
program tong;
uses crt;
var N,S: integer;
Begin
clrscr;
while S<=1200 do
begin
N:=N+1;
S:=S+N;
end;
write(‘So N: ‘,N,’ , tong S = ‘,S);
readln
End.