'Ввести два числа (а, 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.
Не нашли ответ?
Похожие вопросы