Есть ответ 👍

Исправить здесь ошибки program lr28; var a,x,z,b,c: integer; d: real; begin writeln(' № equation'); readln(a); writeln('variables'); readln(x,z,a,b,c); case a of d: ((x-z)/(x+z)); writeln(d): d: = -b/(2*a); writeln(d): d: = ((a*a*a)/abs(x-z)); writeln(d): d: (sqrt(abs(b*b-4*a*; writeln(d): else writeln('error'); end; end.

101
147
Посмотреть ответы 2

Ответы на вопрос:


Program lr28; var k,a,b,c,x,z: integer; d: real; begin write('№ equation: '); readln(k); writeln('variables: '); readln(x,z,a,b,c); case k of  1: begin d: =(x-z)/(x+z); writeln(d); end; 2: begin d: =-b/(2*a); writeln(d); end; 3: begin d: =(a*a*a)/abs(x-z); writeln(d); end; 4: begin d: =sqrt(abs(b*b-4*a*c)); writeln(d); end; else writeln('error'); end; end.

4-ре бита так как 2 в 4 степени 16 то 16 бит

Популярно: Информатика