giúp em với ạ *****Không dùng repeat mà dùng while ạ ****** Viết phương trình nhập vào từ bàn phím các số nguyên , việc nhập được kết thúc khi nhập vào số 0 . Sau đó tính tổng và đưa ra màn hình các số vừa nhập .
2 câu trả lời
uses crt;
var a,ans:longint;
begin
clrscr;
read(a); ans:=a;
while a <> 0 do
begin
read(a);
inc(ans,a);
end;
writeln(ans);
readln; readln;
end.
program tinh;
uses crt;
var n,T:integer;
Begin
clrscr;
write('Nhap n: ');readln(n);
T:=n;
while n<>0 do
begin
write('n = ');readln(n);
T:=T+n;
end;
write('Tong cac so vua nhap = ',T);
readln
End.
Câu hỏi trong lớp
Xem thêm
