Viết chương trình Pascal S=1+2+3+4+5+...i ( viết dạng lùi)
1 câu trả lời
* Dạng lặp lùi: for <biến đếm> := <giá trị cuối> downto <giá trị đầu> do <câu lệnh>;
- Giá trị cuối: i
- Giá trị đầu: 1
* Viết chương trình:
uses crt;
var i, n, S : longint;
begin
clrscr;
S := 0;
write('nhap so i = '); readln(i);
for n := i downto 1 do S := S + n;
writeln('S = ', S);
readln
end.
