Перетворіть звичайний дріб 5/6 у нескінченний періодичний десятковий дріб

Question

Математика: Перетворіть звичайний дріб 5/6 у нескінченний періодичний десятковий дріб

mumuminecraft · Accepted Answer

Const n = 20;
var arrA, arrC: array[1..n] of real;
i, j: byte;
sum: real;

begin
randomize;
writeln('Array A:');
for i:=1 to n do begin
arrA[i] := random() * 10 - 5;
write(arrA[i]:6:2);
if i mod 10 = 0 then writeln;
end;

i := 2;
j := 0;
sum := 0;
while i <= n do begin
if arrA[i] > 0 then begin
j := j + 1;
arrC[j] := arrA[i];
sum := sum + arrC[j] * arrC[j];

end;
i := i + 2;
end;
writeln('Array C:');
for i:=1 to j do write(arrC[i]:6:2);
writeln;
writeln('sq.sum = ', sum:5:2);
end.

MOGZ ответил