Quảng cáo
1 câu trả lời 438
3 năm trước
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
Câu hỏi hot cùng chủ đề
Gửi báo cáo thành công!