Var s,r,k: string;
j: integer;
begin
write('строка: '); readln(s);
foreach k in s.Split(' ').Distinct do
begin
j:=0;
foreach r in s.Split(' ') do
if r=k then j:=j+1;
writeln('слово ','"',k,'"',' встречается ',j,' раз');
end;
<span>end.
</span>
k*N+6=234 следовательно k*N=228
Из k*N=228 видно, что N - основание системы счисления, является делителем числа 228. Делителями числа 228 являются следующие натуральные числа: 2, 4, 6, 12.
Поскольку в записи числа в N системе счисления есть 6, поэтому в качестве основания подойдет только 12.
Если перевести 234 в 12 с/с получим 176
176 - 3 цифры и оканчивается на 6
Ответ: 12
Var
S, tmp: real;
n, i: integer;
begin
write('Введите n:');
readln(n);
for i := 1 to n do
begin
tmp := 1 / ((2 * i + 1) * 3);
S := S + tmp;
end;
writeln(S:8:10);
readln;
end.
