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
(50×3)×5=750 Я сама не знаю,предполагаю!
Пуск ли, смотря какая кнопка
Для вычисления используется формула I=log₂N=log₂15≈4
Program gt;
var n,q,a1,a2,a3,a4,a5,a6,a7,a8,a9,a0:integer;
begin
read(n);
a0:=0;a1:=0;
a2:=0;a3:=0;
a4:=0;a5:=0;
a6:=0;a7:=0;
a8:=0;a9:=0;
while n>0 do
begin
q:=n mod 10;
n:=n div 10;
if(q=0)then a0:=a0+1;
if(q=1)then a1:=a1+1;
***********************
***********************
if(q=9)then a9:=a9+1;
end;
if(a0>1)or(a1>1)or....(a9>1)then writeln('yes')else writeln('no');
end.
буз массива как-то так получиться