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 2324
5 năm trước
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 muốn hỏi bài tập?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK44980
-
Hỏi từ APP VIETJACK27135
Gửi báo cáo thành công!
