Разгадайте чайнворд (последняя буква одного слова является первой буквой для следующего слово) 1 раньше применительно к этому устройству говорили эвм 2 часто этому изобретению очертания человека 3 устройство для передачи и приема звука на расстоянии. 4 в переводе с на это устройство называет блокнот из букв стоящих в закрашенных клеточках попробуйте составить слово обозначающее устройства вывода информации в этом слове не хватает одной буквы какой
const
s='0123456789ABCDEFGHI';
var
t,m:longint;
r:string;
begin
t:=x; r:='';
while t>=q do
begin
m:=t mod q;
r:=s[m+1]+r;
t:=t div q
end;
t10_q:=s[t+1]+r
end;
{ тестирование }
var
q,n:longint;
begin
Write('Введите основание системы счисления (2-20): '); Readln(q);
Write('Введите натуральное число для перевода: '); Readln(n);
Writeln(n,'(10)=',t10_q(n,q),'(',q,')')
end.
Тестовое решение:
Введите основание системы счисления (2-20): 16
Введите натуральное число для перевода: 16350
16350(10)=3FDE(16)