356 дискет если 512 разделить на 1,44
Var
i,n:integer;
s,t:real;
begin
Write('n='); Readln(n);
s:=0;
for i:=1 to n do begin
Read(t);
s:=s+t*t
end;
Writeln('Сумма квадратов равна ',s)
end.
<u>Пример</u>
n=5
-23.1 42.6 146 0 0.12
Сумма квадратов равна 23664.3844
Не уверенна , но вроде так
кб = (1 × 1024) ÷ 4 = (1 × 1024 × 8) ÷ 4 = 2048 бит.
Получается, что
Кб = 2048 Бит