Var a,b,c,d,e:integer;
begin
readln(a,b,c,d,e);
if (a mod 2<>0)and(a<0) then write(a);
if (b mod 2<>0)and(b<0) then write(' ',b);
if (c mod 2<>0)and(c<0) then write(' ',c);
if (d mod 2<>0)and(d<0) then write(' ',d);
if (e mod 2<>0)and(e<0) then write(' ',e);
end.
Пример:
-15 42 -10 27 -79
-15 -79
пусть Стул & диван = А
Стол = Б
а кровать = В
тогда получается что
(Б или А) и В = 890 = (Б и В) или (А и В) -(А и Б и В)
Б и В = 780
А и В = 320
780 +320 = (А и В) или (Б и В) = 1100
1100 - 890 = А и Б и В = 210
А) 173,3 ≡ 1) 0, 1733*10^3
Б) 1, 733 ≡ 3) 0,1733*10^1
В) 0, 1733 ≡ 2) 0,1733*10^0
Г) 0, 0001733 ≡ 4) 0, 1733*10^-3