Var
A:longint;
Begin
WriteLn('Введите пятизначное число');
ReadLn(A);
Write('Произведение нечётных цифр = ',(A div 10000)*((A div 100) mod 10)*(A mod 10))
End.
Исходя из графика
2х - уравнение первой прямой
x/2 - уравнение второй прямой
(x+3)^2 + (y+3)^2 = 9 - уравнение окружности
x = int(input("Enter x "))
y = int(input("Enter y "))
if (((x+3)**2)+((y+3)**2) < 9.0) and ((y > 2*x) or (y < x/2)):
print("Принадлежит")
else:
print("Не принадлежит")
Орёл-зрение
волк-обоняние
летучая мышь-слух
дельфин-слух
<span>крот-осязание</span>
Sum:=0;
for i:=55 downto 42 do sum:=sum+i;
var a:array[1..10] of integer;
i,temp,j:integer;
begin
for i:=1 to 10 do begin
a[i]:=random (26);
write (a[i]:3);
end;
writeln;
for i:=1 to 10 do begin
for j:=1 to 10 do
if a[i]<a[j] then
begin
temp:=a[i];
a[i]:=a[j];
a[j]:=temp;
end;
end;
for i:=1 to 10 do
write(a[i]:3);
end.