Для 4 случайных чисел, введенных с клавиатуры, выведите на экран подходящие

Для четырех случайных чисел, введенных с клавиатуры, выведите на экран подходящие результаты.
Если 1-ое число четно, то выведите сумму этих четырех чисел.
Если 2-ое и третье числа положительны,то выведите их среднее арифметическое.
Если производятся сразу два перечисленных выше условия, то выведите все четыре числа без конфигурации.
По другому, выведите числа, обратные начальным.
Составьте подходящие отладочные примеры и проверьте работу каждой программы.

Задать свой вопрос
1 ответ
Var
  a, b, c, d : integer;
begin
  read (a, b, c, d);
  if a mod 2 = 0 then
    writeln (a + b + c + d);
  if (b gt; 0) and (c gt; 0) then
    writeln ((a + b + c + d) / 4);
  if (a mod 2 = 0) and (b gt; 0) and (c gt; 0) then
    writeln (a, ' ', b, ' ', c, ' ', d)
  else 
    writeln (-a, ' ', -b, ' ', -c, ' ', -d);
end.
Николай Штаханов
Спасибо=))
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт