Тут же цикл, он повторяет дейтсвия...
Посчитай сам, каждый проход даёт +2 к S.
Рот.рак.еда.тор.док.кот .
Program QuadraticEquation;
Var a, b, c, d, x1, x2:real;
Begin
Writeln('vvedite a, b, c');
Readln(a,b,c);
If A=0 then
Writeln('algoritm ne primenim');
D:=b*b-4*a*c;
If D<0 then
Writeln('deystvit resheniy net');
If D=0 then
Begin
x1:=-b/(2*a);
Writeln('x1=',x1);
End
Else
Begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
Writeln('x1=',x1, 'x2=', x2);
End;
end.
Держи!)
<span> ЭВМ пятого поколения ставятся совершенно другие задачи, нежели при
разработки всех прежних ЭВМ. Если перед разработчиками ЭВМ с I по IV
поколений стояли такие задачи, как увеличение производительности в области
числовых расчётов, достижение большой ёмкости памяти, то основной задачей
разработчиков ЭВМ V поколения является создание искусственного интеллекта
машины (возможность делать логические выводы из представленных фактов),
развитие "интеллектуализации" компьютеров - устранения барьера между
человеком и компьютером. Компьютер теперь используется и дома, это
компьютерные игры, прослушивание высококачественной музыки, просмотр фильмов.
Уже сейчас компьютеры способны воспринимать информацию с рукописного или
печатного текста, с бланков, с человеческого голоса, узнавать пользователя по
голосу, осуществлять перевод с одного языка на другой. Это позволяет общаться
с компьютерами всем пользователям, даже тем, кто не имеет специальных знаний
в этой области.</span>