cách sử dụng ngôn ngữ lập trình pascal viết chương trình tính tổng các số dương..Dữ liệu vào là 1 dãy số nguyên ngăn cách ít nhất 1 dấu cách ở trong tệp SO.inp.Kết quả đưa vào tệp KQ.out Tự luận
1 câu trả lời
uses crt;
var f:text; a,s:longint;
begin
clrscr;
assign(f,'SO.inp');reset(f);
while not(eoln(f)) do begin read(f,a); if a>0 then s:=s+a; end;
close(f);
assign(f,'KQ.out');rewrite(f);
writeln(f,s);
close(f);
end.
Câu hỏi trong lớp
Xem thêm
