Var a,b,c,y1,y2,d,i:real;
begin
read(a,b,c);
d:=b*b-4*a*c;
if d>0 then
begin
y1:=(-1*b+sqrt(d))/(2*a);
y2:=(-1*b-sqrt(d))/(2*a);
if y1>=0 then
begin
writeln(sqrt(y1));
writeln(sqrt(y1)*-1);
end;
if y2>=0 then begin
writeln(sqrt(y2));
writeln(sqrt(y2)*-1);
end;
end else
if d=0 then
begin
y1:=(-1*b)/(2*a);
if y1>=0 then begin
writeln(sqrt(y1));
writeln(sqrt(y1)*-1);
end;
end
else
writeln('Корней нет');
<span>end.</span>
Их бесконечно , но вот код на С
#include <stdio.h>
int main ()
{
int i = 0;
for( ; ; )
{
if (i%2 == 0 && i%3 ==0) i++;
}
return 0;
}
#include <iostream>
using namespace std;
int main()
{
int a,b,c,k;
cin>>a>>b>>c;
k=0;
for(int i=a;i<=b;i++){
if(i % c==0){k=k+1; }
}
cout<<k<<endl;
}
первое действие в скобках второе уменьшить