===== PascalABC.NET =====
begin
var x := ReadReal;
var (K, L) := (2.7, 3.0);
var y, a: real;
if x < 16 then
y := L*x/(x+1)
else
y := K + 2*x;
a:=1/(1-3*Sin(y)/(2-y/Ln(y*y)));
Print('y =', y, ' a =', a)
end.
1) г
2) е
3) не розумию вашу мову :) но похоже на Б
4) г
5) авгд
6) бвд
7) авг
8) а2, б5, в4, г1, д3
9) 1г 2б 3в 4д 5а
Program yes_no;
var
n: integer;
begin
write('Введите число: ');
readln(n);
if (n mod 100 div 10) > 1 then
writeln('да')
else
writeln('нет');
end.