1.Ввести с клавиатуры длину и ширину прямоугольной двери. Кроме того, ввести
1.Ввести с клавиатуры длину и ширину прямоугольной двери. Не считая того, ввести длину, ширину и вышину шкафа прямоугольного параллелепипеда. Узнать, можно ли пронести шкаф через дверь, не разбирая его.
2. Ввести три вещественных числа с клавиатуры. Выдать на экран сумму положительных чисел и сумму отрицательных чисел.
1 ответ
Антонина
Var
X,Y,X1,Y1,Z1:real;
Begin
WriteLn('Размеры двери:');
ReadLn(X,Y);
WriteLn('Размеры шкафа:');
ReadLn(X1,Y1,Z1);
if
((Xgt;=X1)and(Ygt;=Y1))or
((Xgt;=X1)and(Ygt;=Z1))or
((Xgt;=Y1)and(Ygt;=X1))or
((Xgt;=Y1)and(Ygt;=Z1))or
((Xgt;=Z1)and(Ygt;=X1))or
((Xgt;=Z1)and(Ygt;=Y1)) then Write('Можно')
else Write('Нельзя')
End.
Var
A,B,C:real;
Sp,So:real;
Begin
Sp:=0;
So:=0;
WriteLn('Введите три числа');
ReadLn(A,B,C);
if Alt;0 then So:=So+A
else Sp:=Sp+A;
if Blt;0 then So:=So+B
else Sp:=Sp+B;
if Clt;0 then So:=So+C
else Sp:=Sp+C;
WriteLn('Сумма положительных одинакова ',Sp);
WriteLn('Сумма отрицательных равна ',So);
End.
X,Y,X1,Y1,Z1:real;
Begin
WriteLn('Размеры двери:');
ReadLn(X,Y);
WriteLn('Размеры шкафа:');
ReadLn(X1,Y1,Z1);
if
((Xgt;=X1)and(Ygt;=Y1))or
((Xgt;=X1)and(Ygt;=Z1))or
((Xgt;=Y1)and(Ygt;=X1))or
((Xgt;=Y1)and(Ygt;=Z1))or
((Xgt;=Z1)and(Ygt;=X1))or
((Xgt;=Z1)and(Ygt;=Y1)) then Write('Можно')
else Write('Нельзя')
End.
Var
A,B,C:real;
Sp,So:real;
Begin
Sp:=0;
So:=0;
WriteLn('Введите три числа');
ReadLn(A,B,C);
if Alt;0 then So:=So+A
else Sp:=Sp+A;
if Blt;0 then So:=So+B
else Sp:=Sp+B;
if Clt;0 then So:=So+C
else Sp:=Sp+C;
WriteLn('Сумма положительных одинакова ',Sp);
WriteLn('Сумма отрицательных равна ',So);
End.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Облако тегов