Орел-зрение
Волк-обоняние
Летучая мышь-слух
Дельфин-слух
Крот-осязание
<span>uses crt;
var a: array [1..15] of integer;
i: integer;
begin
writeln('Дан массив');
for i:=1 to 15 do
begin
a[i]:=random(41)-20;
write(a[i]:5);
end;
writeln;
writeln('Преобразованный массив');
for i:=1 to 15 do
if a[i] mod 2=0 then write(a[i]/2:5:1)
else write(a[i]*3:5);
end<span>.</span></span>
1 . 100001 в двоичной
2. 1000011 в двоичной
var
x, y, s: integer;
begin
readln(x, y);
s := (2*x + y) * (x-y);
writeln(s);
end.