Then writeln('Рівняння не має розв»язків.')

Else

Begin

XI:=(-b-sqrt(D))/(2*a); X2:=(-b+sqrt(D))/(2*a);

Writeln('Корені рівняння:');

Writeln('Xl=',X1:8:2);

Writeln('X2=',X2:8:2);

If (round (XI) OX1) or (round(X2) <>X2)

Then writeln('Корені рівняння не є цілими числами.')

Else

if (round(Xl) mod 2 =0) and (round(X2) mod 2 =0)

Then writeln('Корені рівняння парні')

else writeln(^ЛКорені рівняння непарні');

End;

End;

Readkey;

End.

ЗАДАЧА №130

Умова задачі: Дано дійсні додатні числа а, b, с, х, у. Визначити, чи пройде цеглина з ребрами а.b.с упрямокутний отвір зі сторонами х та у. Проштовхувати цеглину дозволяється лише так, щоб кожне з її ребер було паралельним чи перпендикулярним кожній зі сторін отвору.

Для розв'язання цієї задачі пропонується впорядкувати розміри отвору та розміри цеглини за зростанням, тобто досягти того, щоб було а<=b<=c та х<=у. Тоді перевірка зведеться до порівняння розмірів отвору з найменшими розмірами цеглини (адже ми можемо цеглину розвернути будь-яким боком, щоб проштовхнути її у отвір).

Program Example_130;

Uses crt;

Var a,b,c,x,y,S:real;

(S - допоміжна змінна для обміну місцями значень двох змінних}

Begin

Clrscr;

Write('Введіть розміри цеглини: ');

Readln(a,b,c);

Write('Введіть розміри отвору: ') ;

Readln(х,у);

If (a<=0)or(b<=0)or(c<=0)or(x<=0)or(y<=0)

Then writeln('Помилка вхідних даних.')

Else

Begin

{Впорядкування розмірів цеглини)

If а>b

Then Begin S:=а; а:=Ь; b:=S; End;

If a>c

Then Begin S:=a; a:=c; c:=S; End;

If b>c

Then Begin S:=b; b:=c; c:=S; End;

{Впорядкування розмірів отвору)

If x>y

Then Begin S:=x; x:=y; y:=S; End;

If (a<=x) and (b<=y)