Решите пожалуйста задачу по паскалю. Даны три числа x, y, z найдите количество и...

Question

Решите пожалуйста задачу по паскалю. Даны три числа x, y, z найдите количество и произведение нечетных чисел принадлежащих отрезку c; d.

Answer 1

Program start;
var x,y,z:integer;
begin
readln(x,y,z);
If (x mod 2 = 0) and (y mod 2 = 0) and (z mod 2 = 0) then writeln('Кол-во: 3 | Произведение: ' , z*y*x)
else if (x mod 2 = 0) and (y mod 2 = 0) then writeln('Кол-во: 2 | Произведение: ' , y*x)
else if (x mod 2 = 0) and (z mod 2 = 0) then writeln('Кол-во: 2 | Произведение: ' , z*x)
else if (z mod 2 = 0) and (y mod 2 = 0) then writeln('Кол-во: 2 | Произведение: ' , y*z)
else if (x mod 2 = 0) then writeln('Кол-во: 1 | Произведение: ' , x)
else if (y mod 2 = 0) then writeln('Кол-во: 1 | Произведение: ' , y)
else if (z mod 2 = 0) then writeln('Кол-во: 1 | Произведение: ' , z)
else writeln('Все числа нечетные!');

end.