Program kvadr_nechot;
var i:integer;
begin
for i:=1 to 9 do
if i mod 2 = 1 then write(i*i, ' ')
end.
Ответ:
1) Шестиричная. Ибо максимальная цифра 5
2) Третичная. То же обоснование
3) Шестиричная.То же обоснование
4) Одиннадцатиричная. А - это 10
5) Триннадцатиричная. С - это 12
6) Восьмиричная. То же обоснование
// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
var s:=ReadlnInteger('Число:').ToString;
if Pos(ReadlnString('Цифра:'),s)>0 then Writeln('Есть в числе')
else Writeln('Нет в числе')
end.
<u><em>Тестовое решение:</em></u>
Число: 634
Цифра: 3
Есть в числе
1100101(2) = 2^6+2^5+2^2+1=64+32+4+1=101(10)/