ответственный граждан нин обладает гражданс-
ким духом и ВОВлекается
в решение проблем сооб-
щества. Он обладает ин-
формацией, проявляет, от-
ветственность и понимание
по отношению к пробле-
мам членов Сообщества.
Какие из этих качеств ответс-
твенного гражданина Свойс-
Твенны тебе?
Uses crt;
Var a, b, c, d, x1, x2: real;
G: text;
Begin
Assign (G,'kvur.txt');
Reset(G);
Readln (G,a,b,c);
Close(G);
d:=sqr(b)-4*a*c;
if d > 0 then
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
Assign (G,'korni.txt ');
Rewrite (G);
Writeln (G,'2 корня ', x1:7:2, x2:7:2);
Close(G);
Writeln ('2 корня ', x1:7:2, x2:7:2)
end
else if d = 0 then
begin
x1:=-b/(2*a);
Assign (G,'korni.txt ');
Rewrite (G);
Writeln (G,'1 корень ', x1:7:2);
Close(G);
Writeln ('1 корень ', x1:7:2)
end
else
begin
Assign (G,'korni.txt ');
Rewrite (G);
Writeln (G,‘нет корней');
Close(G);
Write (‘нет корней')
end;
Readkey
End.