№1
1) Переведем число 11111012
Для этого переведем его сначала в десятичную вот так:
11111012 = 1∙2⁶+1∙2⁵+1∙2⁴+1∙2³+1∙2²+0∙2¹+1∙2⁰ = 64+32+16+8+4+0+1 = 125₁₀
2) Переведем число AF16
Для этого переведем его сначала в десятичную вот так:
AF₁₆ = 10∙16¹+15∙16₀ = 160+15 = 175₁₀
3) Переведем число 368
Для этого переведем его сначала в десятичную вот так:
36₈ = 3∙8¹+6∙8₀ = 24+6 = 30₁₀
Получим (125+175):30=300:30=10.
№2
125₈ = 1∙8²+2∙8¹+5∙8⁰ = 64+16+5 = 85₁₀
101₂ = 1∙2²+0∙2¹+1∙2⁰ = 4+0+1 = 5₁₀
2A₁₆ = 2∙16¹+10∙16⁰ = 32+10 = 42₁₀
141₈ <span>= 1∙8</span>²+4∙8¹+1∙8⁰<span> = 64+32+1 = 97</span>₁₀
Получим 85+5*42-97=198
Var
i, n: integer;
s: longint;
begin
readln(n);
for i := 1 to n do
s := s + (n + i) * (n + i);
writeln(s);
end.
program yaneznayupascal;
procedure PS;
var m, n, S, P : integer;
begin
write('Введите число m (длина): ');
readln(m);
write('Введите число n (ширина): ');
readln(n);
S := m*n;
P := 2*m+2*n;
write('S = ', S);
write('P = ', P);
end;
begin
PS;
end.