ЕГЭ, 8 задание (А. Куканова) Аня составляет 6-значные числа в 10-ичной системе счисления. Цифры в числе не должны повторяться, и никакие две четные или две нечетные цифры не должны стоять рядом. Сколько чисел может составить Аня?

1)
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;   
max:=0;
while n>0 do 
begin 
m:=n mod 10; 
if m<min then min:=m; 
if m>max then max:=m; 
n:=n div 10; end;   
writeln('Максимальное число: ',max);   
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.

Если дан не радиус, вычислим радиус, а из него и всё остальное. Формулы для вычисления радиуса:

Обратные формулы:

Код (Python 3):

from math import sqrt, pi

id = int(input())

if id == 1:

   R = float(input())

elif id == 2:

   R = float(input()) / 2

elif id == 3:

   R = float(input()) / 2 / pi

else:

   R = sqrt(float(input()) / pi)

D = 2 * R

L = 2 * pi * R

S = pi * R**2

if id == 1:

   print(D, L, S)

elif id == 2:

   print(R, L, S)

elif id == 3:

   print(R, D, S)

else:

   print(R, D, L)

Пример ввода:

2

4

Пример вывода:

2.0 12.566370614359172 12.566370614359172