viết chương trình nhập vào các số lẻ <100 và tính tổng các số đó

0 bình luận về “viết chương trình nhập vào các số lẻ <100 và tính tổng các số đó”

1. Program Tinh_tong_so_le;
   Uses CRT;
   Var i,n,S:integer,
   sl:boolean;
   begin;
   clrscr;
   For i:=1 to 100 do
   S:=S+i;

   Writeln (‘Tong cua n so le la :’;S);
   Readln;
   End

   Bình luận

2. program tong_so_le;

   uses crt;

   var i,s:integer;

   begin

    clrscr;

      s:=0;

        for i:=1 to 100  do

             if 100 mod i=1 then s:=s+i;

    writeln(‘tong so le <100 la’,s);

   readln;

   end.

   Bình luận