Var
a,y:integer;
begin
writeln('a=');
readln(a); {допустим что ввели значение 12}
if a>=5 then y:=2*a+5 else y:=a*a; {выполняется условие y:=2*a+5 ибо 12>=5}
writeln('y=',' ',y); {y=2*12+5 y=29}
readln*
end.
Короче ответ Г
// Перевод дюймов в см
const d_v_sm = 2.54; // Дюймов в 1 см
var x:real;
begin
Write('Введите кол-во дюймов: ');
Readln(x);
Writeln(x,' дюймов = ',x/d_v_sm,' сантиметров');
end.<span>
</span>
<span>* Так как нужно найти количество последовательностей, содержащих ровно 3 буквы А, то отбрасываем А при подсчете:
3 - 1 = 2.
* Остается две буквы: Б и В, которые могут дать следующие последовательности:
ББ
БВ
ВБ
ВВ
Всего 4 последовательности, теперь составим список количества возможных последовательностей, в котором ровном 3 буквы А:
ААА**
АА**А
АА*А*
*</span>АА*<span>А
А**АА
А*А*А
А*АА*
**ААА
*А*АА
*ААА*
* Всего 10 возможных вариантов: 10 * 4 = 40 различных последовательностей, содержащих ровно 3 буквы А.</span>
20 div 8 = 2
=======================