Даны три целых числа. написать программу, находящую - вопрос №5458180 от Катя15710000000 11.11.2020 11:55

Question

Информатика: Даны три целых числа. написать программу, находящую из заданных трёх чисел произведение нечетных чисел

Катя15710000000 · Answer

// 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.