Определить, является ли треугольник со сторонами a,b,c прямоугольным. Если нет, то вычислить больший угол.
10-11 класс
|
Надо срочно и на паскале
Program abc;
Var a,b,c,i,n:integer;
begin
writeln('Введите А : ');
read(a);
writeln('Введите B : );
read(b);
writeln('Введите C : ');
read(c);
if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c = a*a+b*b) then writeln( 'Треугольник прямоугольный') else
if (a>b) and (a>c) then writeln('Больший угол образован сторонами b и c') else
if (c>a) and (c>b) then writeln('Больший угол образован сторонами b и a') else
if (b>a) and (b>c) then writeln('Больший угол образован сторонами a и c');
end.
Другие вопросы из категории
противном случае заменить наимешьшим из них
Ответ:
4. Как называется программа, у которой есть версии для разных операционных систем? В ответе введите прилагательное.
Ответ:
5. Отметьте все прикладные программы.
операционная система
системы управления базами данных
электронные таблицы
графические редакторы
утилиты
6. Как называется программа, которая позволяет оформлять текст разными стилями и добавлять в документ рисунки и таблицы?
текстовый редактор
графический редактор
текстовый процессор
браузер
почтовый клиент
7. Отметьте все текстовые процессоры.
Блокнот
CorelDraw
OpenOffice Writer
Microsoft Word
Internet Explorer
привлечь покупателей, продавец указал скидку на весь товар 33%. Однако, сделал
(мелким шрифтом) примечание, что скидка указана в четверичной системе.
счисления.
Какую
реальную скидку получит покупатель с покупки, общей стоимостью 500 рублей?
Читайте также
C и, если существует, то какой он (равнобедренный, равносторонний, произвольный).
Заранее большое спасибо!
Напишите программу, которая ответит на вопрос:
Является ли треугольник со сторонами a, b, c равносторонним?
Является ли треугольник со сторонами a, b, c равнобедренным?
Существует ли треугольник со сторонами a, b, c?
Лежит ли точка с координатами a и b в первой координатной четверти?
Являются ли заданные числа b и c квадратом и кубом числа a?
ТРЕБОВАНИЯ:
Программа вводит три вещественных числа и выводит пять строк с ответами на каждый из вопросов 1-5.
ИМЯ ФАЙЛА С ПРОГРАММОЙ = ВАШЕЙ ФАМИЛИИ
a,b,c:integer;
begin
writeln('введите три числа: ');
readln(a,b,c)
а дальше не знаю помогите пожалуйста!!!!)