'ввести два числа (а, b), если разность чисел b и а отрицательна и делится на 4, то удвоить разность.' , ..

Angel574367 Angel574367    1   25.07.2019 18:00    0

Ответы
Маргоht Маргоht  03.10.2020 12:50
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика