S(пока S больше или равно нулю начинай)
701-70
631-70
561-70
491-70
421-70
351-70
281-70
211-70
141-70
71-70
1-70
-69
N при этом
7+1
8+1
9+1
10+1
11+1
12+1
13+1
14+1
15+1
16+1
17+1
18
N=18
наверное как-то так
0,5 Мбайт = 0,5*1024 Кбайт = 512 Кбайт = 512*1024 байт = 512*1024*8 бит
Память для одного пикселя = 512*1024*8 / (128*128) = 256 бит
Количество цветов = 2^256 (очень-очень много)
Информационный вес символьной информации: 60х40=2400 байтИнформационный вес изображения: 240х300x3=216000 бит (3 - количество бит, требуемое для кодирования 8 цветов: 2^3=8)216000 бит = 27000 байтОбщая сумма: 27000+2400=29400 байт
//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