câu 1) tính tổng số nhỏ hơn hoặc bằng N.N nhập từ bàn phím (gợi ý dùng thêm IF và MOD).

0 bình luận về “câu 1) tính tổng số nhỏ hơn hoặc bằng N.N nhập từ bàn phím (gợi ý dùng thêm IF và MOD).”

1. program oken;
   uses crt;
   var n,s,i:longint;
   begin
           clrscr;
           write(‘nhap n: ‘); readln(n);
           i:=1;
           while i<=(n*n) do
                   begin
                           s:=s+i;
                           i:=i+1;
                   end;
           writeln(‘Tong cac so be hon ‘,n*n,’: ‘,s);
           readln;
   end.

   ${Oken}$

   Bình luận