<span>ТТ в начале слов не встречается, поэтому первая Г
– – • Г
Дальше либо Е либо И.
Пускай вторая Е (ГЕ):
• – – • • – – • • – </span>
Третья либо Е, либо А, либо П.
Если третья П (ГЕП):
<span>• – – • • –
Тогда четвертая либо Е, либо А.
Пускай четвертая Е(ГЕПЕ).
</span><span> – – • • –
Пускай четвертая А(ГЕПА)
</span>– • • –
Тогда пятая только Т (ГЕПАТ)
<span>• • –
ГЕПАТЕА, ГЕПАТИТ (осмысленное слово).
</span>
Пускай вторая И (ГИ):
– – • • – – • • –
Третья либо Г либо Т.
Пускай третья Г(ГИГ):
<span>• – – • • –
Пускай третья Т (ГИТ)
</span>
– • • – – • • –
Ответ: гепатит.
PascalABC.NET
Программа считает число нулей стоящих на четных местах в строке, считая первый элемент строки нечетным.
var
t : text;
a,k,i : integer;
begin
assign (t,'File.txt');
reset (t);
i := 0; k := 0;
While not Eof (t) do
begin
i := 0;
While not Eoln (t) do
begin
read (t,a);
if (a = 0) and (i = 1) then
k := k +1;
if i = 0 then
i := 1
else
i := 0;
end;
readln (t);
end;
close (t);
writeln (k);<span>
end.</span>
Var s,i:integer;
begin
write('s = ');
readln(s);
for i:=100 to 999 do
if (i div 100 + i div 10 mod 10 + i mod 10 < s)
then write(i,' ');
end.
Пример:
<span>s = 5
100 101 102 103 110 111 112 120 121 130 200 201 202 210 211 220 300 301 310 400 </span>