Ответ: а) Антонов
1)Епанчин
2)Демидов
3)Гусев
4)Воробьев
5)Борисов
6)Антонов
var p:integer;
begin
readln (p);
if (p=2)then writeln ('-1') else
writeln ((p*p-1)/2+1);
end.
Первый способ:
Var n:longint;
Begin
Write('n = ');ReadLn(n);
n:=n*n;
if frac(Ln(n)/Ln(10)) > 0 then WriteLn(int(Ln(n)/Ln(10))+1)
else WriteLn(Ln(n)/Ln(10))
End.
Второй способ:
Var
n,k:longint;
Begin
Write('n = ');ReadLn(n);
k:=0;
n:=n*n;
While n > 0 do
Begin
k:=k+1;
n:=n div 10
End;
WriteLn(k);
End.
2, 3, 5, 8, 13, 21, 34, 55, 89
1 байт = 8 битов
128 битов = 128/8 = 16 байт
32 байт = 32*8 = 256 бит
1 Кбайт = 1024 байт
1.5 Кбайт = 1024+512 = 1536 байт
2048 байт = 2 Кбайт
1 байт = 8 бит - воть