Lập trình đơn giản

Mai Phương

Cần cộng bao nhiêu số tự nhiên đầu tiên để nhận được tổng S nhỏ nhất lớn hơn 1000? Kiểm tra xem số tìm được có lớn hơn 1500 không?

Nguyễn Lê Phước Thịnh
31 tháng 3 2022 lúc 22:49

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

i:=0;

repeat

i:=i+1;

s:=s+i;

until s>1000;

writeln(s);

if (s>1500) then writeln('co')

else writeln('khong');

readln;

end.


Các câu hỏi tương tự
gái xinh nè
Xem chi tiết
Đức Huy
Xem chi tiết
Ma Phan Đức
Xem chi tiết
Huy Nguyen
Xem chi tiết
Leejung Kim
Xem chi tiết
Tuyết Lê
Xem chi tiết
BTS ARMY
Xem chi tiết
Phương Thảo
Xem chi tiết
Phạm Hải Anh
Xem chi tiết