Даны три целых числа. Написать программку, обретающую из данных трёх чисел

Даны три целых числа. Написать программу, обретающую из данных трёх чисел творенье нечетных чисел

Задать свой вопрос
1 ответ
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
var
  a: array[1..3] of integer;

begin
  Readln(a[1], a[2], a[3]);
  var p := 1;
  for var i := 1 to 3 do
    if a[i] mod 2 = 0 then p := p * a[i];
  Writeln(p);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт