Program my1;
Uses CRT;
Var I, s, k:integer; s:longint;
Begin
Clrscr;
Writeln('vvedite chislo');
Readln(n);
S:=0;
For I:=1 to n do begin
K:=i*i;
S:=S+k;
End;
Writeln('summa kvadratov', S);
Readln;
End.
Ответ:ссылку на контрольную скинь
Объяснение:
А) 101 0100 1010(2)=2^10+2^8+2^6=1024+256+64=1354
б) BABA(16)=11*16^3+10^16^2+11*16+10=47802
в) 110 00110110(2)=2^10+2^9+2^5+2^4+2^2+2=1024+512+32+16+4+2=1590
г) CACA(16)=12*16^3+10*16^2+12*16+10=51914