Program Chuong_trinh1;
Uses Crt;
Var S,n:integer;
Begin
S:=0;n:=0;
While S>50 do
begin n:=n+1;S:=S+n end;
Writeln(‘So n nho nhat de tong > 50 la’,n);
Writeln(‘Tong dau tien > 50 la’,S);
end.
Cho hỏi sau khi chạy ctr thì n=? ạ
#Hi vọng sớm có câu trả Lời nà
Chương trình này sai ở điều kiện while, phải sửa lại thành while S<=50 do thì chương trình mới chạy.
Kết quả:
Số n nhỏ nhất để tổng > 50 là 10 ($n=10$)
Tổng đầu tiên > 50 là 55 ($S=55$)
Chương trình này sai ở điều kiện while, phải sửa lại thành while S<=50 do thì chương trình mới chạy.
Kết quả:
Số n nhỏ nhất để tổng > 50 là 10 (n=10n=10)
Tổng đầu tiên > 50 là 55 (S=55S=55)
Vì nếu S>50 thì chương trình lặp vô hạn nên phải sửa điều kiện