Nhập vào 1 biến: tính tổng các biến được nhập vào cho đến khi biến nhập vào=0 a) viết thuật toán b) viết chương trình
2 câu trả lời
Program BTT;
Uses crt;
Var a,s: longint;
Begin
Clrscr;
Write('Nhap a: '); Readln(a);
s:=a;
While a<>0 do
Begin
Write('Nhap a: '); Readln(a);
s:=s+a;
End;
Write('S = ',s);
Readln
End.
Chương trình:
var a,s:longint;
begin
a:=1;
while a<>0 do
begin
write('Nhap a: '); readln(a);
s:=s+a;
end;
writeln;
write('s= ',s);
readln;
end.
