Составить программу для определения вида параллелограмма по прилежащим сторонам a, b и углу между ними х (в градусах). Определите один из видов: ромб, прямоугольник, квадрат, обыкновенный параллелограмм. Заранее спасибо.
Примечание:
Кому надо
program TASK;
var a,b,x:integer;
begin
read(a);
read(b);
read(x);
writeln('Введите сторону а=',a);
writeln('Введите сторону b=',b);
writeln('Введите угол х=',x);
If(a=b) and (x=90) and(x<180) then writeln ('Четырёхугольник является квадратом');
If(a<>b) and (x=90)and(x<180) then writeln ('Четырёхугольник является прямоугольником');
If(a<>b) and (x<>90)and(x<180) then writeln ('Четырёхугольник является паралелограмом');
If(a=b) and (x<>90)and(x<180) then writeln ('Четырёхугольник является ромбом');
If(a=b) and (x=90) and(x>180) then writeln ('Не имеет смысла');
If(a<>b) and (x=90)and(x>180) then writeln ('Не имеет смысла');
If(a<>b) and (x<>90)and(x>180) then writeln ('Не имеет смысла');
If(a=b) and (x<>90)and(x>180) then writeln ('Не имеет смысла');
End.
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.