Var
x: real;
begin
readln(x);
write(sqrt((2 * x + 3) / (x - 4)));
end.
Решается обычным перебором
0 - нет
01 возможно Б, разделяем на 2 варианта
011 (Д) или Б 1
Д 0 | Б 10 (Г)
Д 01(Б) | Б Г 1 | Б 101 (101 не существует, значит отсекаем этот вариант)
ДБ 0 | Д 010 (также убираем) | БГ 10(Г)
ДБ 00 | БГГ 0 | БГ 100(В)
ДБ 000(А) |БГГ 00 | БГВ 0
ДБА 1 | БГГ 001(убираем) | БГВ 01(Б)
ДБА 11(убираем) | БГВБ 1 | БГВ 011(Д)
БГВБ 10(Г) | БГВД 0
осталось 2 цифры
БГВБГ 00( убираем) | БГВБ 1000(убираем) | БГВД 000(А)
следователь у нас остался только 1 вариант. это БГВДА
Лучше и нагляднее все это расписать деревом, но тут как вам удобнее
Var
a: array [1..10000,1..10000] of integer;
c,s,b,n,m: integer;
begin
readln (n,m);
for b:=1 to n do
for c:=1 to m do
readln (a[b,c]);
for b:=1 to n do
for c:=1 to m do
if ((a[b,c] < 10) and (a[b,c] > 0)) then s:= s+a[b,c];
writeln (s);
end.
Var
A:byte;
Begin
A:=random(151)+5;
if (25 < A)and(A < 100) then WriteLn('Число ',A,' содержится в интервале (25,100)')
else WriteLn('Число ',A,' не содержится в интервале (25,100)')
End.
<span>
-Компьютер что мы о нем знаем.во первых компютер это машина которая помогает найти нам нужную информацию. Во вторых через компьютер мы общаемся с родственниками и друзьями . В третих компьютер можно назвать ученым изо того что именно он может ответить на любой вопрос . в четвёртых чкловек создал для компьютера игры которые можно скачивать . Компьютеры бывают разные мощные и скоростные . чем смогла тем помогла.
</span>