Г. 1045 6
мне сдать нужно в понедельник, а я не шарю в информатике, люди, умоляю
146
350
Ответы на вопрос:
var a,b,c,d: real; beginreadln(a,b,c); d: =sqr(b)-4*a*c; if d< 0 then writeln('net kornei'); if d=0 then writeln('x=',-b/(2*a)); if d> 0 then writeln('x1=', (-b-sqrt(d))/(2*a),' x2='+sqrt(d))/(2*a)); end.
Популярно: Информатика
-
Makson3D09.06.2022 10:00
-
Nirronua01.12.2020 23:43
-
Георгий001509.05.2021 05:59
-
милана19802612.06.2023 02:24
-
annkhanenko2322.07.2021 13:27
-
sofiika1704.04.2021 08:25
-
FOXI6666610.11.2020 13:28
-
pupsikira204.09.2021 09:41
-
Luikas4567634515.01.2023 07:53
-
MishaDunaev12.03.2022 05:21