Bài 5. Từ bài toán đến chương trình

HD

viết chương trình while do tổng các số tự nhiên lẻ S=0+3+5+7+9...sao cho S ≥ 2000

PG
16 tháng 3 2023 lúc 15:00

program TongSoLe;

var

      i, S: integer;

begin

      i := 1;

      S := 0;

      while S < 2000 do

      begin

            S := S + i;

            i := i + 2;

      end;

      writeln('Tong cac so tu nhien le la: ', S);

      readln;

end.

Bình luận (0)

Các câu hỏi tương tự
LB
Xem chi tiết
LB
Xem chi tiết
NA
Xem chi tiết
TP
Xem chi tiết
NN
Xem chi tiết
NN
Xem chi tiết
H24
Xem chi tiết
HT
Xem chi tiết
YN
Xem chi tiết