Задача. Даны действительные числа 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.