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
Huân Võ

mọi người giải dùm em câu này ạ. em xin cảm ơn.

Tính tổng của các số được nhập từ bàn phím. Nhập số 0 để kết thúc quá trình nhập.dùng lệnh while... do...

katou kid
10 tháng 7 2019 lúc 14:28

program tinhtongtubanphim;
var i,s : real; kt:boolean;
begin

s:=0;

kt:=true;
while kt=true do

begin
write("nhap so tu ban phim: ");
readln(i);
s:=s+i;

if i:=0 then kt:=false;
end;
writeln('Tong = ',s);
readln;
end.

Minh Lệ
10 tháng 7 2019 lúc 19:10

Lời giải:

program hotrotinhoc;

var n: integer;

t: longint;

begin

write('Nhap so :'); readln(n);

t:=n;

while n<>0 do

Begin

write('Nhap so:'); readln(n);

t:=t+n;

end;

write(t);

readln

end.


Các câu hỏi tương tự
Thu Anh
Xem chi tiết
Giap Nguyen Van
Xem chi tiết
Huân Võ
Xem chi tiết
Thu Tuyền
Xem chi tiết
Thanh huyền
Xem chi tiết
Ngọc Tú
Xem chi tiết
Lê Tâm Anh
Xem chi tiết
phương thuý nguyễn thị
Xem chi tiết
Thanh huyền
Xem chi tiết