Пожалуйста!!!Очень нужна помощь!!!Дана задачаЗаданы размеры А, В прямоугольного отверстия и

Пожалуйста!!!Очень нужна помощь!!!
Дана задачка
Заданы размеры А, В прямоугольного отверстия и размеры Х, Y, Z кирпича. Найти пройдет ли кирпич через отверстие.
Вот решение,нужно его написать без crt
Program z2_37;
Uses crt;
Label 1;
var m,a,b,x,y,z: real;
Begin
Clrscr;
Write ('Размеры отверстия a,b=');
Read(a,b);
Write ('Размеры кирпича x,y,z=');
Read(x,y,z);
if agt;b then begin m:=a; a:=b; b:=m end;
if xgt;y then begin m:=x; x:=y; y:=m end;
if xgt;z then begin m:=x; x:=z; z:=m end;
if ygt;z then begin m:=y; y:=z; z:=m end;
if (xgt;=a) or (ygt;=b) then
write('Кирпич не пройдет через отверстие')
else
write('Кирпич пройдет через отверстие');
1: Readkey;
end.

Задать свой вопрос
Arina Vahaneeva
А в чем неувязка? Убираете излишние строки и все.
1 ответ
Var a,b,x,y,z,m: real;
Begin
Write ('Размеры отверстия a,b=');
Read(a,b);
Write ('Размеры кирпича x,y,z=');
Read(x,y,z);
if agt;b then begin m:=a; a:=b; b:=m end;
if xgt;y then begin m:=x; x:=y; y:=m end;
if xgt;z then begin m:=x; x:=z; z:=m end;
if ygt;z then begin m:=y; y:=z; z:=m end;
if (xgt;=a) or (ygt;=b) then
write('Кирпич не пройдет через отверстие')
else
write('Кирпич пройдет через отверстие');
end.

Пример:
Размеры отверстия a,b=3 4
Размеры кирпича x,y,z=4 3 2
2 3 4
Кирпич пройдет через отверстие
Виталя Апаршев
Спасибо,я просто мыслила,что это неправильно будет))0
София Лобозева
Пожалуйста.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт