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

216

425

Посмотреть ответы 2

Ответы на вопрос:

ЯнаКорягина

Информатика

4,7(13 оценок)

program start; var x,y,z: integer; beginreadln(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.