Задача. Даны действительные числа A, B, C, D. Найти max(a,b,c), max(a,b,d), max(b,c,d). Написать программу решения задачи PROGRAM ex1; PROCEDURЕ Max (x,

Задача. Даны действительные числа A, B, C, D. Найти max(a,b,c), max(a,b,d), max(b,c,d). Написать программу решения задачи
PROGRAM ex1;
PROCEDURЕ Max (x, y,z: INTEGER);
Var max:integer; BEGIN IF x>y THEN max:x
ELSE max:=y
IF z>max THEN Max:=z
WRITELN (‘максимальное число ‘,max); END;
VAR a,b,c,d: INTEGER;
BEGIN WRITELN (‘Введите числа a, b,c,d ‘);
READLN (a,b,c,d);
Max(a,b,c); Max(a,b,d,);Max(b,c,d);
END.

Задания:
Даны 4 действительных числа a, b, c, d (≠0). Решить квадратные yравнения: ax2+bx+c=0;
bx2+cx+d=0;
ax2+dx+c=0;
dx2+bx+c=0.

PROGRAM task4 ;
Var a, b, с : REAL;
a1, b1, c1 : REAL ;
PROCEDURE sq ( a, b, c: real);
VAR x1, x2, d : REAL;
BEGIN
d :=sqr(b)-4*a*c ;
lF d < 0 THEN
WR1TELN( 'Действительных корней нет' )
ELSE
BEGIN
x1 := (-b+sqrt(d))/2/a ;
x2 := (-b-sqrt(d))/(2*a) ;
WRITELN( 'x1 = ', x1, ' x2 = ', x2 ) ;
END; END;
BEGIN
WRITELN( 'Введите значения a, b, с,d для уравнений’);
READLN( a, b,с,d ) ;
sq (a, b, c ) ; sq (a, с, d); sq (a, d, c); sq (d, b, c); ; END.

Даны положительные действительные числа A, B, C, D. Определить, могут ли числа a,b,c; a,b,d; b,c,d быть сторонами треугольника. Написать программу решения задачи.
PROGRAM ex1;
PROCEDURЕ stor (x, y,z: INTEGER);
Var max:integer; BEGIN IF (x>y+z)and (y>x+z) and (z>x+y) THEN
WRITELN (‘могут быть сторонами треугольника’)
ELSE
WRITELN (‘не могут быть сторонами треугольника’); END;
VAR a,b,c,d: INTEGER;
BEGIN WRITELN (‘Введите числа a, b,c,d ‘);
READLN (a,b,c,d);
stor(a,b,c); stor(a,b,d,); stor(b,c,d);
END.