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

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

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

Question

Информатика

Евгеныч

15 марта, 21:03

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

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

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

+5

Ответы (1)

Знаете ответ на вопрос?

Никанор · Answer 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.