527 = 512+15 = 512+8+4+2+1 = 2^9+2^3+2^2+2+1
527(10) = 1000001111(2)
Чтобы перевести в 8-ную сс, нужно разбить число по 3
1.000.001.111 = 1017(8)
Чтобы перевести в 16-ную сс, нужно разбить число по 4
10.0000.1111 = 20F(16)
Точно также остальные
593 = 512+64+16+1 = 2^9+2^6+2^4+1
593(10) = 1001010001(2) = 1121(8) = 251(16)
824 = 512+256+32+16+8 = 2^9+2^8+2^5+2^4+2^3
824(10) = 1100111000(2) = 1470(8) = 338(16)
368 = 256+64+32+16 = 2^8+2^6+2^5+2^4
368(10) = 101110000(2) = 560(8) = 170(16)
Буду делать по одному. Лови!
var
n, s: Integer;
begin
Write ('Введите натуральное число: ');
Read (n);
s := trunc (sqrt (n));
Writeln ('Целый квадратный корень из ' + IntToStr (n) + ' = ' + IntToStr (s));
Readln;
end;
Ответ: a,b,s: integer;
begin
write('Ââåäèòå Г·ГЁГ±Г«Г* a, b: ');
readln(a,b);
if a>0 then s:=a+b
else s:=a*b;
writeln('s=',s);
readln;
end.
Объяснение: