//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
Ответ дал: Гость
3^i = 18
i = 3
ответ. 3 лампочки.
Ответ дал: Гость
все истина т.к.если пишется "или" то достаточно чтобы что-то одно было правдой,тогда и все истинно.
Ответ дал: Гость
на выходе 109
program p_1; var x,y: real; beginwriteln ('vvedite x'); readln(x); writeln ('vvedite y'); readln(y) ; if x=1 then y: =3; {на всякий случай, мало ли по клавише тне никак не можно ставить другие значения. эту строчку можно и }x: =y-x; y: =2*x; x: =2*y+x; y: =y+x/2; writeln(x,'',y); readln; end.
Популярные вопросы