Информатика "Программирование разветвляющихся алгоритмов"

1. Написать программу, определяющую по длинам сторон A. B. C, является ли треугольник равнобедренным.

2. Даны радиусы круга и сторона квадрата. У какой фигуры площадь больше? 3. Даны два различных вещественных числа X и Y. Написать программу возведения наименьшего из чисел в квадрат, наибольшего в куб и нахождения среднего арифметического полученных знаний. Метки:

1

Ответы и объяснения

Лучший Ответ!
2012-04-24T00:02:01+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var a,b,c,r,x,y:integer;

Begin

  read(a,b,c);

  if (a=b) or (a=c) or (b=c) then

     writeln('Ravnobedrennyj');

 

  read(a,r);

  if  (a*a>pi*r*r) then writeln('Kvadrat bolshe')

  else writeln('Krug bolshe');

 

  read(x,y);

  if x>y then writeln(y*y,' ',x*x*x,' ',(x+y)/2);

  else writeln(x*x,' ',y*y*y,' ',(x+y)/2);

End.