Var
a,b,c:integer;
p:real;
begin
readln(a,b,c);
p:=a+b+c;
p:=p/2;
if (a+b<c) or (a+c<b) or (b+c<a) then writeln('impossible')
else writeln(sqrt(p*(p-a)*(p-b)*(p-c)):0:0);
end.
1 а 2 б 3 ф 4 ф 5 г 6 а 7 а и в 8 а 9 в 10 не знаюю
Ответ: N = 2, т.к. изначально N принимает значение 2, а чтобы войти в цикл нужно чтобы N было больше 8, следовательно вход в цикл не будет осуществлен
Токо на 2
<span>Дано: N(ч) = 8; N(б) = 24. </span>
<span>Найти: i(ч) = ? </span>
<span>Решение: </span>
<span>1)N = 8 + 24 = 32 — всего шаров. </span>
<span>2)р (ч) = 8/32 =1/4 — вероятность доставания черного шара. </span>
<span>3) i(ч) = log2 ( 1/(1/4)) = 2 бита. </span>
<span>Ответ: 2 бита.</span>
в этом задании несколько правильных ответов, а)length(s) b)copy(a,n,k) c)delete(s,n,k) d)pos(s1,s2)