<span>Ответ: 5 садов существует с такими свойствами</span>
var a:array[1..10]of integer;
i,k:integer;
begin
for i:=1 to 10 do begin readln(k); a[i]:=sqr(k); end;
k:=0;
for i:=1 to 10 do k:=a[i]+k;
writeln(k);
end.
Чтобы перевести 75 кб в байты нужно знать что
1 кб=1024 байт
75*1024=76800 байт
Чтобы перевести 75 кб в биты нужно знать что
1кб= 8192 бит
75*8192=<span>614400 бит</span>
Разделить целую часть числа на триады от младших разрядов к старшим (влево от запятой);
- разделить дробную часть на триады в обратном направлении (вправо от запятой);
- заменить каждую триаду двоичных чисел соответствующей восьмеричной цифрой по таблице, предложенной выше;
- недостающие до триады позиции заполнить незначащими нуями.
Пример:
1010,111112=001010,1111102=12,768
Program Pr1;
uses crt;
var x:real;
begin
clrscr;
x:=-4;
while x<=4 do begin
writeln(ABS(x+2));
x:=x+0.5;
end;
end.