Там будет первая и третья (буква Г)
Midi - другой тип. В этом расширении находятся аудио файлы
<em>Из мобильного приложения приведенная ниже формула не будет видна, смотреть в браузере!!!</em>![\displaystyle P= \frac{(x-1)(x-3)(x-5)...(x-63)}{(x-2)(x-4)(x-6)...(x-64)}=\prod_{i=1}^{32} \frac{x-(2i-1)}{x-2i} = \\ \prod_{i=1}^{32} \left(1+\frac{1}{x-2i}\right)](https://tex.z-dn.net/?f=%5Cdisplaystyle+P%3D+%5Cfrac%7B%28x-1%29%28x-3%29%28x-5%29...%28x-63%29%7D%7B%28x-2%29%28x-4%29%28x-6%29...%28x-64%29%7D%3D%5Cprod_%7Bi%3D1%7D%5E%7B32%7D+%5Cfrac%7Bx-%282i-1%29%7D%7Bx-2i%7D+%3D+%5C%5C+%5Cprod_%7Bi%3D1%7D%5E%7B32%7D+%5Cleft%281%2B%5Cfrac%7B1%7D%7Bx-2i%7D%5Cright%29)
var
i:integer;
x,p:real;
begin
Write('x='); Read(x);
p:=1;
for i:=1 to 32 do p:=p*(1+1/(x-2*i));
Writeln('P=',p)
end.
<u>Пример</u>x=1.36
P=-0.0783922330060185
Var x, temp, p, a, original: integer;
found: boolean;
begin
found:=false; //переменная примет значение "истина" тогда, когда число А будет найдено в цифрах первого числа
writeln('Введите натуральное число");
Readln(original);
Writeln('Введите число A');
Readln(a);
x:=original;
p:=1; //будет хранить произведение цифр числа(если приравнять нулю, то произведение всегда будет равно нулю)
while x>0 do //пока X болльше нуля
begin
temp:=x mod 10; //заносим последнюю цифру числа X в переменную temp
if temp=a then found:=true; //если цифра числа равна A, то помечаем, что нашли ее
p:=p*temp; //домножаем произведение на цифру
x:=x div 10; //отбрасываем последнюю цифру числа через целочисленное деление
end;
Writeln('Произведение цифр числа ' + original + ' равно ' + p);
if found then writeln('Цифра' + a + ' есть в исходном числе ' + original)
else writeln('Цифра ' + a + ' отсутствует в оригинальном числе ' + original)
end;
1.
z = 1 + 128/5 = 1 + 64 = 65.
i = 1.
x = 64.
2.
z = 65 + 64/2 = 65 + 32 = 97.
i = 2.
x = 32.
3.
z = 97 + 32/2 = 97 + 16 = 115.
i = 3.
x = 16.
4.
z = 115 + 16/2 = 115 + 8 = 123.
i = 4.
x = 4.
Вывод: 123.
Ответ: 123.