Исправить здесь ошибки 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
Ответы на вопрос:
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.
Популярно: Информатика
-
Bekarys200211.12.2021 09:54
-
asdgvhmh18.04.2020 20:59
-
idrisovsa30.01.2023 22:56
-
lyagaeva8704.12.2021 08:14
-
Alina098903.06.2021 07:30
-
alina09092003111.10.2021 07:57
-
semyonshhuko919.10.2020 19:45
-
amina203140623.03.2023 16:46
-
tshaxzoda22.10.2021 01:48
-
Lizka2285523.04.2022 03:24