Tính tổng của dãy số A=5+6+7+...+N
THEO 2 CÁCH (CÂU LỆNH FOR...DO, CÂU LỆNH WHILE ...DO) free pascal
2 câu trả lời
uses crt;
var S,i,n:integer;
begin
clrscr;
write('Nhap n=');readln(n);
for i:=5 to n do
S:=S+i;
write('A=',S);
readln;
end.
Tính tổng của dãy số A=5+6+7+...+N
THEO 2 CÁCH (CÂU LỆNH FOR...DO, CÂU LỆNH WHILE ...DO) free pascal
uses crt;
var S,i,n:integer;
begin
clrscr;
write('Nhap n=');readln(n);
for i:=5 to n do
S:=S+i;
write('A=',S);
readln;
end.