Программирование. Pascal ABC.
Задание: Составить задачу с использованием процедуры (соответственно решение тоже нужно).

Решение квадратного уравнения. Из интернета.PROGRAM S;VAR Y1,Y2: REAL ;PROCEDURE SQ (A,B,C : REAL ; VAR X1,X2 : REAL );VAR D: REAL ;BEGIND:=B*B-4*A*C;X1:= (-B+ SQRT (D))/(2*A);X2:= (-B- SQRT (D))/(2*A);END ;BEGIN (*PROGRAM*)SQ(1,2,-3,Y1,Y2);WRITELN(Y1=,Y1,Y2=,Y2);END .

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.