//pascal abc.net 3.1 сборка 1256 var a,b,c,s,p: real; begin readln(a,b,c); if (a+b> c) and (b+c> a) and (a+c> b) then begin p: =(a+b+c)/2; s: =sqrt(p*(p-a)*(p-b)*(p-c)); writeln('s=',s); end else writeln('такого треугольника не существует.'); end. пример ввода: 3 4 3 пример вывода: s=4.47213595499958
Ответ дал: Гость
32 - вопроса, 32 - ответа
Ответ дал: Гость
решение для pascal abc
uses graphabc;
vara: integer; beginreadln(a); moveto(a,1); circle(a+a div 2,1,a div 4); lineto(a+a div 4,1); moveto(a+ (a div 4)*3,1); lineto (2*a,1); lineto(2*a,1+a); lineto (a,1+a); lineto (a,1); moveto (a,1+a); lineto (a-(a div 2),1+2*a); lineto(2*a+a div 2, 1+2*a); lineto(2*a,1+a); end.
Ответ дал: Гость
4)¬a λ b λ ¬c: только это логическое выражение будет равносильно начальному
Популярные вопросы