Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Cẩm Ly

Viết vào chương trình nhập vào các số thực x và tính tổng các số thực đã nhập .vòng lặp sẽ dừng lại khi tổng điểm lớn hơn 200

Nguyen Hung
3 tháng 5 2021 lúc 21:11

Uses crt;

Var tong,n:real;

Begin

clrscr;

tong:=0;

While tong<=200 do

Begin

readln(n);

tong:=tong+n;

End;

Writeln('Tong: ',tong:0:4);

readln;

End.

Nguyễn Lê Phước Thịnh
4 tháng 5 2021 lúc 13:30

*Cách khác:

uses crt;

var x,t:real;

begin

clrscr;

t:=0;

repeat

  write('Nhap x='); readln(x);

t:=t+x;

until t>200;

writeln(t);

readln;

end.


Các câu hỏi tương tự
Nguyễn Tùng
Xem chi tiết
Nguyễn minh Hoàng
Xem chi tiết
Vochehoang
Xem chi tiết
Đoàn Khánh Chi
Xem chi tiết
Vàng Phan Thanh
Xem chi tiết
Nguyễn Kim Trí
Xem chi tiết
Anh Đức 8/8
Xem chi tiết
My Na
Xem chi tiết
Nguyễn Thuận
Xem chi tiết