Написать программу для этого алгоритма. 70 .

var a, b, x: real;

begin

    writeln('ax + b = 0');

    write('введите a: ');

    readln(a);

    write('введите b: ');

    readln(b);

    if a < > 0 then

        x: =-b / a

    else

        if b < > 0 then

            writeln('корней нет')

        else

            writeln('любое число');

    writeln('x = ', x);

end.

2гбайта=2000000байт

2000000байт/400байт=5000текстовых файлов

#include < iostream> #include < clocale> #include < cmath> using namespace std; void main(){ setlocale(lc_ctype,"rus"); int x, sum=0; cout< < "введите переменную: "; cin> > x; for(int i=1; i< x; i++) { if(x%i==0) sum+=i; } if(x==sum) {cout< < "это совершенное число"< < endl; } else {cout< < "это несовершенное число"< < endl; }}