один.
Структура составного оператора:
begin
Р1; Р2;
...; Pk end
где P1, Р2,…, Рk - любые операторы
FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.
Email: Нажмите что бы посмотреть
program Korni3;
var a, b, c, d: real;
begin read(a, b, c);
d := sqr(b) - 4*a*c;
if d < 0 then write(0)
else begin
d := sqrt(d);
a := 2*a;
write((- b+d)/a, (- b - d)/a)
end
end.