Это на С++:
#include <stdio.h>
int main ()
{
int a = 0, b = 0, c = 0;
scanf ("%d %d %d", &a, &b, &c);
printf ("%d+%d+%d=%d\n", a, b, c, a+b+c);
printf ("%d*%d*%d=%d\n", a, b, c, a*b*c);
printf ("(%d+%d+%d)/3=%f", a, b, c, (a+b+c)/3.0);
}
Var
x:integer;
begin
Writeln('x = '); readln(x);
if (x <> 0) and (x <> 5)then Writeln('y = ', 2*x/(x*(x-5)):0:5)else
Writeln('No Solution Exist');
end.
1001014))))))))))))))))))вроде так
Var a, x, b, s: real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
if (-2*b)/a < 0 then writeln('Нет решения') else
begin
x:=sqrt((-2*b)/a);
if x=0 then writeln('x = 0') else
writeln('x1 = ', x, ' | x2 = ', -x)end
end.