Регистрация
IhaveAbrains
17.02.2021 17:33
Информатика
Есть ответ 👍

сделать алгоритм и написать код программы. Язык PascalABC

136
216
Посмотреть ответы 2

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

резной777
резной777
4,7(100 оценок)

var a,b,c,x,z: double;

begin

a:=4; b:=-1; c:=0;

while (a=4) do

 begin

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

 readln(a);

 if (a=4) then writeln('a не может быть равно 4!');

 end;

while (b<=0) do

 begin

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

 readln(b);

 if (b<=0) then writeln('b не может быть меньше или равно 0!');

 end;

while (c=0) do

 begin

 write('Введите c: ');

 readln(c);

 if (c=0) then writeln('c не может быть равно 0!');

 end;

x:=(7*a*b+(1/(c*c)))/(4-a);

z:=a+(x/sqrt(2*b));

writeln('x = ');

writeln(x);

writeln('z = ');

writeln(z);

end.

залина061
залина061
4,5(15 оценок)
1) д 2) б, г, е 3) а, в

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