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.

0 bình luận về “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.”

1. ??

   Bình luận

2. 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.

   Bình luận