Очень срочно!!! Составьте программу решения квадратного уравнения, если заданы е...

July 2022 1 6 Report

Очень срочно!!! Составьте программу решения квадратного уравнения, если заданы его коэффициенты в условном операторе (If...then...else...)

Answers & Comments

vadikborisenkov Program kvadrurav;
var
a:integer;
b:integer;
c:integer;
d:integer;
begin
Writeln('введите число а');
Readln(a);
Writeln('введите число b')
;Readln(b);
Writeln('введите число c');
Readln(c);
d:=b*b-(4*a*c);
if d>0 then Writeln('x1=',(-b-Sqrt(D))/(2*a),' ','x2=',((-b+Sqrt(D))/(2*a))) ;
if d=0 then
Writeln('x1=',-b/(2*a))
else
Writeln('нет корней');

0 votes Thanks 0

vadikborisenkov так?

arianarudskaya если бы знала, не спрашивала бы, откуда я знаю так или нет, но я там уже по своему ответила, 3 как-нибудь поставит,

Answers & Comments

reshite na listochke i otpravte fotku 4 zadanie ochen nado pliiiiz

pozhalujsta reshite 7 zadanie na listochke sfotkajte i otpravte mne nuzhno po dej

napishite kratkuyu biografiyu lermonotovagde rodilsya zhil polki uni

nazovite samye izvestnye stihi lermontova kotorye izuchayut v kazhdoj shkole

reshite pliz 2 zadanie2b21f2926c39b0594c3822ba49ffe5ca 39981

ochen prostoe reshite pliz u menya che to ne shoditsya

mne nuzhno napisat plan po etim 5 chastyam plan iz 5 punktov po kazhdoj chasti

reshite hot kak nibud ochen srochno pliiiz

pomogite pozhalujsta reshit 1 2 3 zadanieda701ae51817af354484cef127420373 76541

reshite zadachu chtoby v nej bylo esli to inache

рекомендуемые вопросы

Helpful Links

Helpful Social