25 Кб = 25 * 1024 байт = 25600 байт
25600 / 8 / 40 / 64 = 1.25 байт
1 байт = 8 бит
1.25 * 8 = 10
Ответ: один символ закодирован с помощью десяти бит
Program dz2;
Var i:byte;
s:integer;
Begin
S:=0;
For i:= 10 to 99 do
If i mod 3=0 then
S:=s+i;
Writeln('Сумма двухзначных чисел кратных 3 =',s);
End.
С2=$A$4+D1
$А$4 - абсолютная ссылка, значение не меняется,
При копировании из В4 в С2 сдвиг на 1 столбец вправо и на 2 строки вверх, следовательно адрес ячейки С3 изменится на D1
Var x: integer;
begin
readln(x);
writeln(x*x*x*x*x*x*x*x*x*x*x*x*x*x*x);
end.
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var a:=ReadReal();
write('Площадь: ',a*a*pi,'; Длина окр: ',2*pi*a);
end.