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

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

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

Ответы 1

  • 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.

     

     

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years