При использовании 64 цветов для хранения одного пикселя необходимо log(2)64 = 6 бит.
Для всего изображения:
1024*768*6 бит = 1024*768*6 / 8 байт = 1024*768*6 / (8*1024) Кбайт = 576 Кбайт
<h3>PascalABC.NET 3.4.2, сборка 1861 от 09.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var s:=ReadLines('data.txt').First.Select(t->t.ToDigit)
.Aggregate(BigInteger(1),(a,b)->a*b).Println
end.
<h2>Пример</h2>
10057531504895395788703629698793031096713606951075840000000000000
<h3>Файл data.txt дан во вложении</h3>
#include<iostream>
#include <cstdlib>
#include <math.h>
using namespace std;
int main()
{
system("chcp 1251 > null");
int n = 0;
cout << "Задача 1.\n\tВведіть n: ";
cin >> n;
for(int i = 1; i<=n; i++){
if(i%7==0){
cout << i;
}
}
cout << "\n\n";
int a,b;
cout << "Задача 2.\n\tВведіть перше число діапазону: ";
cin >> a;
cout <<"\n\tВведіть друге число діапазону: ";
cin >> b;
double sum = 0;
double sr = 0;
int index = 0;
for(int i = a; i<=b; i++){
sum = sum+i;
index++;
}
sr = sum / index;
cout << "\n\nСума: " << sum << "\nСереднє арифметичне: " << sr;
int x = 0;
int y = 0;
cout << "\n\nЗадача 3.\n\tВведіть x: ";
cin >> x;
cout << "\n\tВведіть y: ";
cin >> y;
cout << "Результат" << powl(x,y);
}
Старался написать как можно проще. Попрошу оценить мои старания ;-)
Вот, во вложении вся программа, (на free-pascal компиляция и запуск), а файлы, я думаю, вы сами сможете добавить, спрашивайте, если не понятно, удачи
1 A 3 4 C ,2 B 9 =
4 3 2 1 0 -1 -2 -3 <-----позиции цифр в числе
=1*16^4 +10*16^3+3*16^2+4*16 +12 + 2*16^-1+11*16^-2+9*16^-3=
=107340+ 697/4096=107340,170166