//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) var i, n: integer; p: BigInteger;
begin write('Введите число N '); readln(n); p := 1; for i := 1 to n do p := p * i; writeln( 'Произведение чисел от 1 до ',n,' равно : ',p); end.
Тест №1: Введите число N 5 Произведение чисел от 1 до 5 равно : 120
Тест №2: Введите число N 100 Произведение чисел от 1 до 100 равно : 93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210916864000000000000000000000000
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) begin var n := readinteger('Размер массива '); //Для теста заполним массив сл. числами var a := arrrandom(n); a.Println; var x:=readinteger('Введите число Х'); if x in a then writeln('массив содержит число ', x) else writeln('массив не содержит число ', x) end.
Тест №1 Размер массива 10 96 14 36 84 55 1 74 99 72 20 Введите число Х 14 массив содержит число 14
Тест №2 Размер массива 10 59 9 8 98 75 34 52 63 62 17 Введите число Х 55 массив не содержит число 55
2^4=16 символов макс. кол-во в алфавите
формула 2^n, два в степени n, где n - сколько нужно разрядов-бит для алфавита, в данном случае n = 4