Var
a,b,c : integer;
d,x1,x2,s : real;
begin
writeln ('ax^2+bx+c=0');
write ('a=');
readln (a);
write ('b=');
readln (b);
write ('c=');
readln (c);
d := sqr (b) - 4 * a * c;
if d < 0 then
writeln ('Корней нет')
else
begin
x1 := (-b + sqrt (d))/(2*a);
x2 := (-b - sqrt (d))/(2*a);
if x1 <> x2 then
begin
writeln ('x1=',x1);
writeln ('x2=',x2);
s := x1+x2;
writeln ('s=',s);
end
else
writeln ('x=s=',x1);
end;
<span> end.</span>
Обозначим Симченко - С, Василькова - В, <span>Левченко - Л;
Исходя из прогнозов и условия:
1 место. НЕ С И НЕ В => Л
2 </span>место<span>. НЕ В И НЕ Л => С
3 </span><span>место</span><span>. НЕ Л И НЕ С => В
Получили ответ:
</span><span> Левченко занял 1 место.
</span><span> Симченко занял 2 место.
</span><span> Васильков занял 3 место.</span>
Видео в ютуб Эдуард Мецкер Паскаль с нуля ч5
Диск-носитель
Бумага-носитель
Флешка-носитель
Указатель - носитель