Bài 8. Lặp với số lần chưa biết trước

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Minh Vũ

tìm n để tổng Tn = 1+2+3+..+n nhỏ nhất >100

sử dụng lệnh while ...do

I LOVE TFBOYS
27 tháng 2 2019 lúc 19:24

program tinhtong;

uses crt;

var n,i,s:integer;

begin

clrscr;

write('nhap n=');

readln(n);

while (n>100) do

begin

write('nhap lai n<100:');

readln(n);

end;

s:=0;

for i:=1 to n do s:=s+i;

write('tong vua tinh la:',s:3);

readln;

end.

Người mới vô có gì sai sót mong bỏ qua :))


Các câu hỏi tương tự
Ánh Dương
Xem chi tiết
Thanh huyền
Xem chi tiết
Thu Tuyền
Xem chi tiết
Hè Lấu
Xem chi tiết
Thu Tuyền
Xem chi tiết
phúc võ
Xem chi tiết
Thanh huyền
Xem chi tiết
Ngọc Tú
Xem chi tiết
Biên Vi
Xem chi tiết