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>
3)Комплекс програм ,обеспечивающих обработку, передачу и хранение данных в сети.
См. приложения. Объяснение в комент.
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
int x = 6;
float z = cos(pow(x, 2)+1)*10*x;
int mod = (int)z % 4;
switch(mod) {
case 0:
cout << "Зима" << endl;
break;
case 1:
cout << "Весна" << endl;
break;
case 2:
cout << "Лето" << endl;
break;
case 3:
cout << "Осень" << endl;
break;
}
return 0;
}