67108864 байт.
Это если слева 1/16 Гбайт, т.е. 0,0625 Гбайт.
Каждой букве соответствует своя цифра, например: 495+459=954
<span>ТТ в начале слов не встречается, поэтому первая Г
– – • Г
Дальше либо Е либо И.
Пускай вторая Е (ГЕ):
• – – • • – – • • – </span>
Третья либо Е, либо А, либо П.
Если третья П (ГЕП):
<span>• – – • • –
Тогда четвертая либо Е, либо А.
Пускай четвертая Е(ГЕПЕ).
</span><span> – – • • –
Пускай четвертая А(ГЕПА)
</span>– • • –
Тогда пятая только Т (ГЕПАТ)
<span>• • –
ГЕПАТЕА, ГЕПАТИТ (осмысленное слово).
</span>
Пускай вторая И (ГИ):
– – • • – – • • –
Третья либо Г либо Т.
Пускай третья Г(ГИГ):
<span>• – – • • –
Пускай третья Т (ГИТ)
</span>
– • • – – • • –
Ответ: гепатит.
Uses crt;
var n,a,k,s:integer;
begin
readln(n);
a:=n;
repeat;
a:=n mod 10;
s:=s+a;
n:=n div 10;
if a>6 then inc(k);
until a=0;
writeln(s);
writeln(k);
end.
Var x,p,rez:real;
<span> n: integer;
</span><span>begin
</span><span> p:=1;
</span><span> write('числа через пробел (завершение ввода - 0): '); read(x);
</span><span> while x<>0 do
</span><span> begin
</span><span> p:=p*abs(x);
</span><span> read(x);
</span><span> end;
</span><span> write('N = '); readln(n);
</span><span> rez:=exp((1/n)*ln(p));
</span><span> writeln('корень ',N,' -ой степени из ',p,' = ',rez);
</span><span>end.
</span><span>
</span>