a[1] = -4 a[2] = -1 a[3] = 4 a[4] = 11 a[5] = 20 a[6] = 31 a[7] = 44 a[8] = 59 a[9] = 76 a[10] = 95
Объяснение:
for i:=1 to 10 do a[i]:=i*i-5;
i = 1 a[1] = 1 * 1 - 5 = 1 - 5 = -4
i = 2 a[2] = 2 * 2 - 5 = 4 - 5 = -1
i = 3 a[3] = 3 * 3 - 5 = 9 - 5 = 4
i = 4 a[4] = 4 * 4 - 5 = 16 - 5 = 11
i = 5 a[5] = 5 * 5 - 5 = 25 - 5 = 20
i = 6 a[6] = 6 * 6 - 5 = 36 - 5 = 31
i = 7 a[7] = 7 * 7 - 5 = 49 - 5 = 44
i = 8 a[8] = 8 * 8 - 5 = 64 - 5 = 59
i = 9 a[9] = 9 * 9 - 5 = 81 - 5 = 76
i = 10 a[10] = 10 * 10 - 5 = 100 - 5 = 95
var
i, j, n, len, rem: integer;
a: array[1..200] of byte;
begin
write('Введите число: ');
read(n);
len := 1;
a[1] := 1;
for i := n + 1 to 99 {100} do
begin
for j := 1 to len do
begin
rem := a[j] * i + rem;
a[j] := rem mod 10;
rem := rem div 10;
end;
while rem > 0 do
begin
inc(len);
a[len] := rem mod 10;
rem := rem div 10;
end;
end;
writeln('Произведение чисел из интервала (', n, '; 100): ');
for i := len downto 1 do write(a[i]);
end.
Пример работы программы:
Введите число: 1
Произведение чисел из интервала (1; 100):
1948348720420644788695888257080283249381963823594360049498643927185579338215778728274424636079639781709574621897447185108592230400000000000000000000