Ответы на вопрос:
1. исправьте условие if d> 0 then x1: = (-b+sqrtd)/(2*a) ; x2: = (-b-sqrtd)/(2*a) ; else ('корней нет') ; на if d> 0 then begin x1: = (-b+sqrt(d))/(2*a); x2: = (-b-sqrt(d))/(2*a); end else writeln ('корней нет') ; и здесь: if d=0 then x: = (-b+sqrtd)/(2*a) ; writeln ('x1=; x1) ; writeln ('x2=; x2) ; на if d=0 then begin x: = (-b+sqrt(d))/(2*a) ; writeln('x = ', x); end; writeln ('x1=',x1) ; writeln ('x2=',x2) ;
Популярно: Информатика
-
Ксюша1292928828208.04.2021 17:02
-
nmpepatop114.08.2020 11:46
-
artemsavenkov04.12.2021 17:20
-
6yterffjdjd09.08.2020 12:32
-
Maximus2000003.03.2022 09:19
-
Василина91410.07.2021 19:48
-
1Аминка19.10.2020 04:49
-
Disengaliev03.10.2022 12:12
-
RaminaMirzaeva25.07.2021 21:09
-
маша305411.12.2020 08:46