6) 11(2) = 3(10), 11(3) = 4(10), 3*4 = 12(10) = 1100(2) = 110(3)
8) 144(16) - наибольшее. Вообще, если написание чисел одинаково, то больше то число, у которого больше основание.
Если еще посчитать надо, то вот.
144(16) = 16^2 + 4*16 + 4 = 256 + 64 + 4 = 324(10)
144(10) = 144(10)
144(8) = 8^2 + 4*8 + 4 = 64 + 32 + 4 = 100(10)
144(6) = 6^2 + 4*6 + 4 = 36 + 24 + 4 = 64(10)
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Введите строку:');
var n:=s.Matches('[A-Za-zА-Яа-яёЁ]').Count;
var m:=s.Length-n;
if m>n then Writeln('В строке букв меньше иных символов')
else
if m<n then Writeln('В строке букв больше иных символов')
else Writeln('В строке поровну букв и иных символов')
end.
<u>Примеры</u>
Введите строку: Это 12+32/16t/7+3.1415 тест
В строке букв меньше иных символов
Введите строку: И это 14+7 равно 21 тоже тест
В строке букв больше иных символов
Var
c.d:byte;
begin
writeln ('Введите ваш возраст');
readln (c);
D:=18-c
if c>17 then writeln ('Вы достаточно взрослы, чтобы голосовать');
if c<18 then writeln ('Вы слишком малы, чтобы голосовать, вы сможете голосовать через',d,'лет');
readln;
end.
Program Slovo;
var
s1,s2: string;
begin
s1:='абитуриент';
s2:=s1[2]+s1[5]+s1[9]+s1[10] ; //s1[2] = 'Б' s2[5]='у' s2[9]='н' s1[10]='т'
write(s2);
end.