039;Ввести два числа (а, b), если разность чисел b и а

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

Помогите, пожалуйста..

Задать свой вопрос
1 ответ
Var
  a, b: integer;

begin
  readln(a, b);
  a := b - a;
  if (a lt; 0) and (a mod 4 = 0) then
    writeln(4 * a)
  else writeln(a);
end.
Анна Хныгина
Спасибо большое.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт