Hãy viết chương trình thực hiện công việc sau hiển thị thông báo mời người dùng nhập vào 1 số nguyên dương M, sau khi người dùng nhập vào tìm số tự nhiên k lớn nhất sao cho tổng bình phương của k số tự nhiên đầu tiên nhỏ hơn hoặc bằng M
Quảng cáo
2 câu trả lời 2374
Var k,x,m,s,i:integer;
begin
Readln(M);
k:=0;s:=0;i:=0;x:=0;
While(X<=M) do
begin
inc(i);
s:=s+i;
X:=sqr(s);
end;
k:=i-1;
Write('so can tim la ',K);
readln;
end.
Nghĩa Huỳnh
· 5 năm trước
k:=i-1 là vì lúc chương trình xét X<=M lần cuối cùng của vòng lập thì X >M r nó chạy dư 1 đơn vị nên trừ lại
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
45316 -
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
34744 -
Đã trả lời bởi chuyên gia
30536 -
Hỏi từ APP VIETJACK27980
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
22290
Gửi báo cáo thành công!
