Quảng cáo
1 câu trả lời 525
uses crt;
var s,n:longint;
begin
clrscr;
s:=0;
n:=1;
while s≥25 do
begin
s:=s+n;
inc(n);
end;
writeln(s);
writeln('So n nho nhat sao cho tong S≥25 la: ',n);
readln;
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
86361
Gửi báo cáo thành công!
