Есть ответ 👍

Построить график поверхности: (см. фото)

288
383
Посмотреть ответы 1

Ответы на вопрос:

ПЯTA4OK
4,5(27 оценок)

1. исправьте условие if d> 0 then x1: = (-b+sqrtd)/(2*a) ; x2: = (-b-sqrtd)/(2*a) ; else ('корней нет') ; на if d> 0 then begin   x1: = (-b+sqrt(d))/(2*a);   x2: = (-b-sqrt(d))/(2*a); end else  writeln ('корней нет') ; и здесь: if d=0 then x: = (-b+sqrtd)/(2*a) ; writeln ('x1=; x1) ; writeln ('x2=; x2) ; на if d=0 then begin   x: = (-b+sqrt(d))/(2*a) ;   writeln('x = ', x); end; writeln ('x1=',x1) ; writeln ('x2=',x2) ;  

Популярно: Информатика