ДАНЫ 4 ЧИСЛА X Y Z W составит программу найти произведение все положительные нечетные числа

[Woland-itn]

ДАНЫ 4 ЧИСЛА X Y Z W составит программу найти произведение всех положительных нечетных чис


народ кто может напишите плизз оч срочно нада

[Tayfun]

var
p,x,y,z,w:integer;
begin
read(x,y,z,w);
p:=1;
if (x>0) and (x mod 2<>0) then p:=p*x;
if (y>0) and (y mod 2<>0) then p:=p*y;
if (z>0) and (z mod 2<>0) then p:=p*z;
if (w>0) and (w mod 2<>0) then p:=p*w;
writeln(p);
end.

[Шаман]

Сообщение от Woland-itn

ДАНЫ 4 ЧИСЛА X Y Z W составит программу найти произведение всех положительных нечетных чисел

uses
crt;

var
p,x,y,z,w:integer;
begin
clrscr;
readln(x,y,z,w);

if (x>0) and (y>0) 
   and (z>0) and (w>0)  {odd - функция возвращает True если число нечетное}
    and (odd(x)=true) 
    and (odd(y)=true) 
    and (odd(z)=true) 
    and (odd(w)=true) 
     then
p:=x*y*z*w;
 else exit;
writeln(p);
readln;
end.

Предыдущее решение немного неверное...В условии сказано, найти произведение всех 4-х чисел, если они проходят по условиям.

[Snake_ua]

"найти произведение всех положительных нечетных чисел"
Если же у нас есть отрицательное либо четное число, то мы его не учитываем. Находим произведение всех положительных нечетных которые нам даны. Поэтому первое решение является верным.