Var
y: real;
begin
y := tan(3 * Pi);
y := y * y; {квадрат}
y := y * y; {четвертая степень}
y := (1 - y) / (ln(8) / ln(3));
writeln('y=', y)
end.
На чем и может ли она принимать аргументы? А вообще - это называется факториал и обозначается !
Функция на PHP:
function summa($n)
{
for($i=1;$i<$n;$i++)
{
$summa = $i+$i;
}
}
Возможно немного ошибся
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
var s1:=ReadlnString('Первая строка:').ToHashSet;
var s2:=ReadlnString('Вторая строка:').ToHashSet;
(s1-s2).Println('');
end.
<u><em>Тестовое решение:</em></u>
Первая строка: 12345 - вышел Зайчик погулять!
Вторая строка: 34 - ноги шире!
125вылЗайчкпуять
Pascal:
a: array [1..10000] of integer;
i, n, m: integer;
begin
readln(n);
for i := 1 to n do
read(a[i]);
m := 1;
for i := 2 to n do
if (a[i] > a[m])
then m := i;
writeln(a[m],' ',m);
end.
Объем информации для записи номеров участников:
для 1го - 1 бит x 1 = 1
для 2-3го - 2 бита x 2 = 4
для 4-7го - 3 бита x 4 = 12
для 8-15го - 4 бита x 8 = 32
для 16-31го - 5 бит x 16 = 80
для 32-63го - 6 бит x 32 = 192
для 64-120 - 7 бит x 64 = 448
для записи результатов по 8 бит на каждого. 8 x 120 = 960
итого, 1729 бит