Найдите вес символа если в алфавите 512 символов
1 ответ:
Читайте также
<em>Реализована формула
</em>
<em>
// PascalABC.NET 3.2, сборка 1485 от 15.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Write('Введите х и у: '); var (x,y):=ReadReal2;
var s:=Power(Cos(Power(Pi*y/3-x,14)),6)+Sin(y*y*y);
Writeln('s=',s)
end.
<u>Пример</u>
Введите х и у: 2.175 -1.4
s=-0.335572582839361
</em>
// PascalABC.NET 3.2, сборка 1485 от 15.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Write('Введите х и у: '); var (x,y):=ReadReal2;
var s:=Power(Cos(Power(Pi*y/3-x,14)),6)+Sin(y*y*y);
Writeln('s=',s)
end.
<u>Пример</u>
Введите х и у: 2.175 -1.4
s=-0.335572582839361