Viết chương trình pascal cho phép nhập vào từ bàn phím một dãy số nguyên cho đến khi gặp số 0.Hãy in ra màn hình:
a.Tổng các số dương.
b.Trung bình cộng các số âm.
Viết chương trình pascal cho phép nhập vào từ bàn phím một dãy số nguyên cho đến khi gặp số 0.Hãy in ra màn hình:
a.Tổng các số dương.
b.Trung bình cộng các số âm.
var s:int64;tb:real;n,i:int64;
function nt(n:int64):boolean;
var i:longint;
begin
if n<2 then exit(false) else
if n<4 then exit(true);
if (n mod 2=0) or (n mod 3=0) then exit(false);
for i:=1 to (trunc(sqrt(n))+1) div 6 do
if (n mod (6*i+1)=0) or(n mod (6*i-1)=0) then exit(false);
exit(true):
end;
begin
repeat
read(n);
if n mod 2=0 then s:=s+n else begin tb:=tb+n;inc(i); end;
until nt(n);
writeln(s);
write(tb/i:0:2);
readln;