Question

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

Answer 1

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.

Answer 2

*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.