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.

$#QLinkVN$
Hình 1: dùng cấu trúc lặp for-do
Hình 2: dùng cấu trúc lặp while-do