Pascal

поменять местами без третьей переменной это

a := a+b

b:= a-b

a:=a-b

вот так

а потом сидишь и думаешь, чего это программа падает

а это блядь переполнение в свапе

через фор делить мод 2 = 0, дальше брейкаешь из цикла, считаешь произведение

спасибопожалуйста 

var

a,b,c:longint;

begin

read(a,b,c);

if not(odd(a) and odd(b) and odd©) then writeln(a*b*c);

end.

 

заовнил всех

 

var

a,b,c,d:longint;

begin

read(a,b,c);

  d:= a*b*c;

if d div 2 ==1 then writeln(d) else writeln("error!");;

end.

Заовнил тебя

var

a,b,c:longint;

begin

read(a,b,c);

if not(odd(a) and odd(b) and odd©) then writeln(a*b*c);

end.

 

заовнил всех

 

var

a,b,c,d:longint;

begin

read(a,b,c);

  d:= a*b*c;

if d div 2 ==1 then writeln(d) else writeln("error!");;

end.

 

Заовнил тебя

какую-то хуйню ты написал

if d mod 2 = 0 тогда

var

a, b, c: longint;

 

Begin

read(a, b, c);

if (a*b*c) and 1 = 0 then

write(a*b*c);

End.

либо

k:=a*b*c;

if (k) and (1) = 0 ..... write(k);

либо

1 and a and b and c = 0

var

a,b,c:longint;

begin

read(a,b,c);

if not(odd(a) and odd(b) and odd©) then writeln(a*b*c);

end.

 

заовнил всех

 

var

a,b,c,d:longint;

begin

read(a,b,c);

  d:= a*b*c;

if d div 2 ==1 then writeln(d) else writeln("error!");;

end.

 

Заовнил тебя

это бред, потому что остаток как раз mod возвращает...

а даже если и нет , то возьми все непарные числа и у тебя будет 1 в остатке