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

Đoàn Bảo Ngọc

tìm n để X=1+3+5+...+n có giá trị nhỏ nhất lớn hơn m (m nhập từ bàn phím)

Nguyễn Lê Phước Thịnh
8 tháng 2 2022 lúc 23:25

uses crt;

var n,i,s,m:integer;

begin

clrscr;

readln(m);

s:=0;

n:=1;

repeat

s:=s+n;

n:=n+2;

until s>m;

writeln(s);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Hoài Right
Xem chi tiết
Nguyễn Linh
Xem chi tiết
haizzz!!
Xem chi tiết
LTK Phương
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
nhattien nguyen
Xem chi tiết
nhattien nguyen
Xem chi tiết
Dấu tên
Xem chi tiết
Yeu DUong nhat
Xem chi tiết