Program p1;var n:integer;begin Writeln ('Введите число');Readln (n);if n>0 Then a:=(n*3) and (n mod 2=0) Else; Writeln (n);Readln;End.
не точно нужно дополнить,но что-то типо этого
1. k=2; a=2;
2. 2<5 - да => a=2*2=4; k=2+2=4;
3. 4<5 - да => a=4*4=16; k=4+2=6;
4. 6<5 - нет
Ответ: 6
Я такого еще не проходил. Не думаю что кто-то даст ответ. уже 11 минут висит вопрос.
<span>ТТ в начале слов не встречается, поэтому первая Г
– – • Г
Дальше либо Е либо И.
Пускай вторая Е (ГЕ):
• – – • • – – • • – </span>
Третья либо Е, либо А, либо П.
Если третья П (ГЕП):
<span>• – – • • –
Тогда четвертая либо Е, либо А.
Пускай четвертая Е(ГЕПЕ).
</span><span> – – • • –
Пускай четвертая А(ГЕПА)
</span>– • • –
Тогда пятая только Т (ГЕПАТ)
<span>• • –
ГЕПАТЕА, ГЕПАТИТ (осмысленное слово).
</span>
Пускай вторая И (ГИ):
– – • • – – • • –
Третья либо Г либо Т.
Пускай третья Г(ГИГ):
<span>• – – • • –
Пускай третья Т (ГИТ)
</span>
– • • – – • • –
Ответ: гепатит.