viết chương trình tìm tổng số tự nhiên lẽ đầu tiên nhỏ nhất lớn hơn 50

viết chương trình tìm tổng số tự nhiên lẽ đầu tiên nhỏ nhất lớn hơn 50

0 bình luận về “viết chương trình tìm tổng số tự nhiên lẽ đầu tiên nhỏ nhất lớn hơn 50”

  1. uses crt;
    var s,i:integer;
    begin
       clrscr; i:=1;
       while s<=50 do 
       begin
          s:=s+i;
          i:=i+2;
       end;
       write(‘S la: ‘,s);
       writeln;
       write(‘i la: ‘,i);
       readln
    end.

    Bình luận

Viết một bình luận