Написать программу решения линейного уравнения ax=b,a,b вводим с клавиатуры язык - paskal

uses crt;

var a, b, x : real;

begin

    clrscr;

    write('введите число a = ');

    readln(a);

    write('введите число b = ');

    readln(b);

    if ((a=0) and (b=0)) then

        writeln('уравнение имеет бесконечное множество решений: х*0 + 0 = 0.')

    else if ((a=0) and (b< > 0)) then

        writeln('уравнение не
имеет решений.')

    else if (a< > 0) then

    begin

          x: = -(b/a);

          writeln('x = ', x);

    end

end.

var

    a, b : real;

begin

    writeln('ax=b');

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

    readln(a, b);

    writeln(a, 'x=', b);

    if (a = 0) and (b = 0) then writeln('x= бесконечное
множество')

    else if (a = 0) and (b < > 0) then writeln('уравнение не имеет решений')

    else begin

        writeln('x=', b, '/', a);

        writeln('x=', b/a);

    end;

end.

480 000 байт

Объяснение:

I = K * i

I - информационный объём книги (размер файла, содержащего книгу)

K - количество символов в сообщении

i - информационный вес одного символа (число бит, используемых для записи одного символа)

Дано:

K = 100 страниц * 60 строк * 80 символов = 480 000 символов

i = 8 бит = 1 байт

Найти:

I

I = 480 000 * 1 = 480 000 байт = 468,75 Кбайт