сервис вопросов и ответовНаписать программу в Pascal.
5-9 класс|
|
Даны два угла треугольника (в градусах). Определить, существует ли такой треугольник. Если да, то будет ли он прямоугольным.
Masha199605
21 окт. 2013 г., 15:32:00 (10 лет назад)
ульяна10
21 окт. 2013 г., 17:42:07 (10 лет назад)
program pr1;
uses crt;
var
a,b:integer;
begin
readln(a,b);
if (a+b<180) and ((a=90) or (b=90) or (180-a-b=90)) then writeln('YES')
else writeln('No');
end;
Zvezdnyylord0
21 окт. 2013 г., 20:36:19 (10 лет назад)
угол 1 в градусах x
угол 2 в градусах y
if( (x+y)<180)
{
if (x=90 or y=90 or 180-x-y=90)
then трегольник существует и он прямоугольный
else треугольник существует, но он не прямоугольный
}
else
{
треугольник не существует
}
Ответить
Другие вопросы из категории
Пожалуйста, напишите программу для того, чтобы в целом натуральном числе n поменять местами первую и последнюю цифру, с помощью цикла While в Pascal ABC.
Дам за него 15 баллов. Пожалуйста, помогите!
№3. Отметьте истинные высказывания.
1. объект, который используется в качестве "заместителя", представителя другого объекта с определенной целью, назв. моделью.
2. модель обладает всеми признаками объекта-оригинала.
3. модель имеет существенные признаки объекта-оригинала.
4. модель содержит меньше информации, чем объект-оригинал.
5. модель содержит больше информации, чем объект-оригинал.
6. модель содержит столько же информации, что и объект-оригинал.
7. можно создавать и использовать разные модели объекта.
8. можно создавать и использовать единственную модель объекта.
9. можно создавать и использовать только натурные модели объекта.
Помогите)Световое табло состоит из лампочек, каждая из которых может находиться в двух состояниях : включено и выключено. Какое наименьшее
количество лампочек должно находиться на табло, чтобы с его помощью можно было передавать 15 различных сигналов
Напишите программу которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. Программа получает на вход количество чисел в
последовательности, а затем сами числа. В последовательности всегда имеется число кратное 6. Кол-во чисел не превышает 100. Введённые числа не привышают 300. Программа должна ввести одно число - сумму чисел кратных 6
Читайте также
Написать программу Turpo pascal помогите пожалуйста что сможете!!! Вывести на экран 6 раз свое имя. Составить блок-схему и написать программу
вычисления суммы чисел от 6 до 10. Написать программу вычисления n! (факториал числа n), где n- целое неотрицательное число.
Определение факториала:
0!=1, 1!=1, 2!=1*2, 3!=1*2*3, ……,n!=1*2*3*…*(n-1)*n.
Другими словами n!- это произведение n натуральных чисел.
Пожалуйста помогите решить желательно все или хотя бы одну (P.S. программа для программы Turbo Pascal) 1.Написать программу, которая предлагает
ввести 3 значное число и находит сумму его цифр.
2. Написать программу, которая предлагает ввести 3 значное число и меняет порядок цифр наоборот. (123- 321)
3.Написать программу, которая предлагает ввести три числа с клавиатуры, находит их сумму, произведение и среднее арифметическое.
1. Даны два различных вещественных числа X и Y. Написать программу, возведения наименьшего из чисел в квадрат, наибольшего – в куб и нахождения среднего
арифметического полученных значений.
2. За весну Обломов похудел на p1 кг, за лето поправился на p2 кг, за осень похудел на p3 кг, за зиму поправился на p4 кг. Написать программу, определяющую, похудел или поправился за год Обломов.
3. Написать программу, которая определяет, является ли целое число четным двузначным числом.
4. Даны коэффициенты квадратного уравнения. Написать программу, определяющую его корни
помогите пожалуйста..очень надо....что нибудь из этих задач..1)написать программу которая поменяет местами первую и последнюю букву в слове. 2)написать
программу которая вставит между буквами веденного слова пробелы 3)написать программу вывода на экран деление двух чисел
Паскаль ABC 1.Написать программу рисующую вертикальную цепочку из 7 кругов 2.Написать программу рисующую цепочку из 5 кругов
расположденных по диагонали
3.Написать программу рисующую горизонтальную цепочку из 12 кругов,каждый круг должен на половину закрывать предыдущий
Помогите,а то сижу с паскалем уже час с лишним и все никак не получается..
Заранее спасибо)
Вы находитесь на странице вопроса "Написать программу в Pascal.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.