Будте добры написать программу на паскале. условие: надо написать программу, которая решает квадратное уравнение. (используя goto)

299

455

Посмотреть ответы 2

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

2004080111

Информатика

4,5(99 оценок)

Var a,b,c,x1,x2,d: real; begin write('введите a='); readln(a); write('введите b='); readln(b); write('введите c='); readln(c); d: =b*b-4*a*c; if d< 0 then begin writeln('нет корней'); end; if d=0 then begin writeln('x1=',-b/(2*a)) end; if d> 0 then begin x1: =(-b-sqrt(d))/(2*a); x2: =(-b+sqrt(d))/(2*a); writeln('x1=',x1); writeln('x2=',x2); end; end.

levkamorkovka

Информатика

4,8(78 оценок)

Что бы подробно посмотреть,набери 4004 в браузере,или свой вопрос.он всё выдаст)я бы тебе скопировала,но не могу,так как пишет что нельзя копировать=(и кстати,сделали его в 1971 году.