begin Write('Введите через пробел коэффициенты a,b,c: '); Readln(a, b, c); if b = 0 then begin if c > 0 then Writeln('Нет действительных корней') else if c = 0 then Writeln('Единственный корень x=0') else begin y1 := -c / a; if y1 > 0 then begin y1 := sqrt(y1); x1 := -sqrt(y1); x2 := -x1; Writeln('Два действительных корня: ', x1, ', ', x2) end else Writeln('Нет действительных корней') end end else if c = 0 then if b > 0 then Writeln('Единственный корень x=0') else begin y1 := -b / a; if y1 > 0 then begin x1 := sqrt(-b / a); x2 := -x1; Writeln('Три действительных корня: 0, ', x1, ', ', x2) end else Writeln('Единственный корень x=0') end else begin D := sqr(b) - 4 * a * c; if D < 0 then Writeln('Нет действительных корней') else if D = 0 then begin y1 := -b / (2 * a); if y1 < 0 then Writeln('Нет действительных корней') else begin x1 := sqrt(y1); x2 := -x1; Writeln('Два действительных корня: ', x1, ', ', x2) end end else begin D := sqrt(D); y1 := (-b - D) / (2 * a); y2 := (-b + D) / (2 * a); if y1 < 0 then if y2 < 0 then Writeln('Нет действительных корней') else begin x1 := -sqrt(y2); x2 := -x1; Writeln('Два действительных корня: ', x1, ', ', x2) end else if y2 < 0 then begin x1 := -sqrt(y1); x2 := -x1; Writeln('Два действительных корня: ', x1, ', ', x2) end else begin x1 := -sqrt(y1); x2 := -x1; x3 := -sqrt(y2); x4 := -x3; if x1 = x2 then Writeln('Три действительных корня: ', x1, ', ', x3, ', ', x4) else if x3 = x4 then Writeln('Три действительных корня: ', x1, ', ', x2, ', ', x3) else Writeln('Четыре действительных корня: ', x1, ', ', x2, ', ', x3, ', ', x4) end end end end.
Тестовое решение: Введите через пробел коэффициенты a,b,c: 1 -25 144 Четыре действительных корня: -3, 3, -4, 4
Введите через пробел коэффициенты a,b,c: -1 -4 5 Два действительных корня: -1, 1
В переменной day определяется номер последнего элемента массива Dat, который равен первому элементу ⇒ значение переменной day после выполнения цикла = 2
Program rtr1;Uses crt;var a,s,d,e:integer; ss,dd,ee:string;beginclrscr;Writeln('Введите число от 100 до 399');readln(a);s:=a div 100;e:=a mod 100 mod 10;d:=a div 10 mod 10;case s of1: ss:='сто';2: ss:='двести';3: ss:='триста';end;case d of2: dd:='двадцать';3: dd:='тридцать';4: dd:='сорок';5: dd:='пятьдесят';6: dd:='шестьдесят';7: dd:='семьдесят';8: dd:='восемьдесят';9: dd:='девяносто';end;case e of1: ee:='один';2: ee:='два';3: ee:='три';4: ee:='четыре';5: ee:='пять';6: ee:='шесть';7: ee:='семь';8: ee:='восемь';9: ee:='девять';end;if d=1 then begin case e of 1: dd:='одинадцать'; 2: dd:='двенадцать'; 3: dd:='тринадцать'; 4: dd:='четырнадцать'; 5: dd:='пятнадцать'; 6: dd:='шестнадцать'; 7: dd:='семнадцать'; 8: dd:='восемнадцать'; 9: dd:='девятнадцать'; end;write(ss,' ',dd);end elsewrite(ss,' ',dd,' ',ee);