Nhập n đến khi n=-9999. Tính trung bình cộng các số chính phương. Em cần gấp ạ.

2 câu trả lời

uses crt;

var n, s, d : longint;

begin

clrscr;

n := 0; d := 0; s := 0;

while n <> (-9999) do

begin

write('Nhap so n : '); readln(n);

if n <> (-9999) then

if sqr(trunc(sqrt(n))) = n then

begin

s := s + n;

d := d + 1;

end;

end

writeln('Trung binh cong : ', (s / d) : 2 : 3);

readln

end.

var n,s,d : longint;

begin

clrscr;

n := 0; d := 0; s := 0;

while n <> (-9999) do

begin

write('nhap so n : '); readln(n);

if n <> (-9999) then

if sqr(trunc(sqrt(n))) = n then

begin

s := s + n;

d := d + 1;

end;

end

writeln('trung binh cong : ', (s / d) : 2 : 3);

readln

end.

Câu hỏi trong lớp Xem thêm