Var a,b,x: real; begin write ('vvedite koaficient a,b»'); readln (a,b); if a< > 0 then begin x: = -b/a; writeln ('koren yravnenia x=', x: 9: 3); end else if b< > 0 then writeln ('korney net'); else writeln ('x- luboe chislo'); end. как можно переделать программу, выдает ошибку?
236
339
Ответы на вопрос:
Популярно: Информатика
-
DimaIvanov5623416.08.2021 04:32
-
85kurganova8525.01.2022 11:23
-
викусик15009.06.2021 13:57
-
Tim4ik020518.04.2020 17:48
-
vickyin151906.12.2021 13:56
-
sofyagorobecmaozu3v304.04.2022 06:59
-
283927518.12.2021 13:34
-
руслан79430.11.2021 17:58
-
Лейла01125.05.2020 19:53
-
XXX231xxx14.12.2021 02:47