Question

информатика 8 класс. Помогите, пожалуйста нужно сделать тип var begin read if then и тд❤️

Answer 1

program D;

var
a,b,c,d: Integer;
x, x1, x2: Real;

begin
Write('Ввод "a": ');
ReadLn(a);
Write('Ввод "b": ');
ReadLn(b);
Write('Ввод "c": ');
ReadLn(c);

d := b*b-4*a*c;

if d < 0 then begin
WriteLn('Корней нет');
end else begin
if d = 0 then begin
x := -b/2*a;
WriteLn('Корень: ', x)
end else begin
x1 := (-b+sqrt(d))/(2*a);
x2 := (-b-sqrt(d))/(2*a);
WriteLn('X1 = ', x1);
WriteLn('X2 = ', x2);
end;
end;
end.