Var
n,i:integer;
S:real;
Begin
Write('n = ');ReadLn(n);
WriteLn('1)');
S:=0;
i:=2;
While i<=n do
Begin
S:=S+i*i;
i:=i+2;
End;
WriteLn('S = ',S);
WriteLn('2)');
Write(n);
i:=n div 2;
While i > 0 do
Begin
if n mod i = 0 then Write(' ',i);
i:=i-1
End;
End.
256 (10) = 100 (16)
400 (10) = 190 (16)
1234 (10) = 4D2 (16)
2012 (10) = 7DC (16)
Ключ: интернет
<span>Трудно в учении, легко в бою</span>
№7
1.44 Мбайт=1474,56 КБайт
1474,56 : 100 = 14 , Ответ : 14 файлов
Вроде бы, "V".Но я не совсем уверенна