Question

Помогите с информатикой!​

Answer 1

Ответ:

program z;

var D,a,b,x:real;

begin

write ('a = ');

readln (a);

write ('b = ');

readln (b);

write ('x = ');

readln (x);

if x <> 0 then

begin

D:=(a * b + 2.5)/x;

write('D = ',D)

end

else write('на 0 делить нельзя')

end.

Объяснение:

вводим переменные с пояснениями:

write ('a = ');

readln (a);

write ('b = ');

readln (b);

write ('x = ');

readln (x);

используем полное ветвление, чтобы программа не выдавала ошибку в случае если x = 0