'Ввести два числа (а, b), если разность чисел b и а отрицательна и делится на 4, то удвоить разность.' Помогите, пожалуйста..

'Ввести два числа (а, b), если разность чисел b и а отрицательна и делится на 4, то удвоить разность.' Помогите, пожалуйста..
Гость
Ответ(ы) на вопрос:
Гость
var   a, b: integer; begin   readln(a, b);   a := b - a;   if (a < 0) and (a mod 4 = 0) then     writeln(4 * a)   else writeln(a); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы