Hiện lên dãy số 1,2......,20 ra màn hình ,tính tổng dãy 1,2...,20 ra rồi hiện kết quả ra màn hình.
2 câu trả lời
program hien_so
uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 20 do i:=i+1;
for i:=1 to 20 do writeln('cac so tu 1 den 20 la:',i);
readln;
end.
program tinh_tong;
uses crt;
var n,i:integer;
s:longint;
begin
clrscr;
writeln('nhap so n:');
readln(n);
s:=0
for i:=1 to n do s:=s+i;
writeln('tong cua',n,'so tu nhien dau tien s=',s);
readln;
end.
