1) Y:=5*x+3;
2) Z:=
3) X:=
4) x*x+x+1
5) Z:=x*(5+x/2)
6) X:=19 mod 5;
7) Z:=16 div 3;
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(Range(2,2*ReadInteger('n='),2).Aggregate(BigInteger(1),(m,n)->m*n))
end.
<u>Пример</u>
n= 37
1891675820705153808241239602722999673157373132800000000
Файл "main.cpp" - первое задание, "main50.cpp" - второе. Для формирования чисел используется корейский рандом. Ещё добавлю, что удалить числа из массива нельзя, а можно только создать новый.
var s:string;
k:byte;
begin
readln(s);
k:= <span>length(s);
write(k)
end.</span>