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
