Первое слово: =Левсимб(н8,найти(" ";H8)-1)
Второе слово: =Правсимб(н8;найти(" ";H8)-1)
program n_1;
uses crt;
var
n: longint;
k: integer;
function Sym(n: integer): char;
begin
case n of
0..9: Sym := chr(48 + n);
10..36: Sym := chr(55 + n);
end;
end;
function funct(n: longint; k: integer): string;
var
st: string;
begin
st := '';
if n = 0 then st := '0' else
begin
while n >= 1 do
begin
st := Sym(n mod k) + st;
n := n div k;
end;
end;
DecToX := st;
end;
begin
readln(n);
repeat
readln(k);
until (2 <= k) and (k <= 36);
writeln(funct(n, k));
end.
Для начало ждать повтор задачи до тех пор пока его не найдут и не вы тащат из корня дерева далее идти к реке Уфе и исследовать далее идти к реке Москве и исследовать конец
1)128=2^7
ответ 7
2)256=2^8
ответ 8
3)8=2^3
ответ 3
Ответ:
FALSE
TRUE
s = abracadabra
s = '12'
t = '21'
s = 'Счет: ' + 10 - ошибка
t = '2.1' + 3 - ошибка
t = 'кино'
s := t * 5 - ошибка
writeln ('A'*x); - ошибка