Главная arrow icon Вопросы arrow icon Учеба и наука arrow icon Информатика arrow icon Информатика Паскаль

Информатика Паскаль - вопрос №145971

Праквильно ли я решил задачу? помогите сделать так что бы угол выводило у меня не получается пожалуйста

Даны три числа a, b, c, удовлетворяющие аксиомам треугольника. Если треугольник равносторонний, то найти его площадь. Если треугольник равнобедренный, то найти периметр и угол между равными сторонами.

var a,b,c,s,p,pp:real;<br /> begin<br /> writeln('Введите стороны треугольника');<br /> readln(a);<br /> readln(b);<br /> readln©;<br /> if (a=b) and(b=c) then begin<br /> WriteLn('Треугольник равносторонний');<br /> p:=(a+b+c)/2;<br /> s:=sqrt(p*(p-a)*(p-b)*(p-c));<br /> WriteLn('s=',s:3:3);<br /> end else if (a=b)or(b=c)or(a=c) then begin<br /> WriteLn('Треугольник равнобедренный');<br /> p:=a+b+c;<br /> WriteLn('p=',p:3:3);<br /> end else WriteLn('Треугольник не равносторонний и не равнобедренный');<br /> end.
Святослав
18.11.11
Учеба и наука / Информатика
0 ответов
Ответов пока нет

Еva
от 100 p.
Рейтинг: 121 998
6-й в Учебе и науке
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Похожие вопросы
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store
  • карты visa
  • карты master card
  • карты maestro
  • карты МИР
Мы используем файлы cookie. Пользуясь сайтом, вы принимаете условия нашего соглашения. Принять Детальнее