Question

(turbo pascal) решите задачи плиз не фига не понимаю как с этой программой их решать
1. необходимо задать формулу (a+b)*(m-k) /b-k. переменные вводит пользователь. при знаменателе равном 0, выводится соответствующее сообщение (не ошибка Pascal). плиз кто разберается в этом срочно надо

Answer 1

Var a,b,m,k:integer;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('m = ');
ReadLn(m);
Write('k = ');
ReadLn(k);
if b=k then WriteLn('Ошибка: На ноль делить нельзя!')
else WriteLn((a+b)*(m-k)/(b-k));
End.