Ответы на вопрос:
program raf105;
var a,b,x: real;
begin
readln(a,b);
if b< > 0
then writeln('корней нет')
else if a< > 0
then
begin
writeln('1 корень');
x: = -8/a;
writeln(x);
end
else writeln('мн-во корней');
end.
Популярно: Информатика
-
sbabean21920.03.2020 22:06
-
zhadyra198408.05.2020 09:54
-
BrenderMaster08.06.2020 06:28
-
Nastya400224.03.2020 10:42
-
aaadia31.07.2020 21:59
-
shkolar34526.07.2021 08:16
-
veros15.02.2023 01:02
-
NikolaAdamova27.06.2022 12:14
-
kartofan2016p08uuy03.09.2022 10:58
-
artemikochan14.01.2022 03:35