Для перевода в любую счислительную систему из десятичной нужно число делить на 2, 8 и 16 соответственно системам. Остаток при делении отмечаешь (если число делится нацело то отмечаешь остаток как ноль). Затем частное от первого деления снова делишь на 2, 8 или 16 соответственно системе счисления. Отмечаешь остаток. И так далее пока не останется в частном то, что уже нельзя делить. Отмечаешь последнее частное. А потом задом наперед (справа на лево) выписываешь последнее частное и за ним все остатки. Это и будет перевод числа в данную систему счисления. 2. a) b) 3. a) b) 4. a) --> 4 единицы в записи b) --> 2 единицы в записи. 5. a) --> 4 нуля в записи b) --> 2 нуля в записи
Function IsEqual(n:longint):boolean; { возвращает True, если первая и последняя цифры числа равны } var s:string; begin Str(n,s); IsEqual:=(s[1]=s[Length(s)]) end;
var k:longint; begin Write('Введите натуральное число '); Read(k); Write('Первая и последняя цифры введенного числа '); if not IsEqual(k) then Write('не '); Writeln('совпадают') end.
Тестовые решения: Введите натуральное число 15342403 Первая и последняя цифры введенного числа не совпадают
Введите натуральное число 745370007 Первая и последняя цифры введенного числа совпадают
2. a)
b)
3. a)
b)
4. a)
b)
5. a)
b)