Черно-белое → 2 цвета → глубина цвета 1 бит (2^1=2).
размер 1020*649=661980 пикселей.
каждый пиксель кодируется 1 битом (выше посчитали) → 661980*1=661980 бит на всё изображение.
в 1 байте 8 бит → 661980 бит = 661980/8 байт = 82747,5 байт
Программа без синтаксических ошибок:
program asd;
var
a,b,c,n, k: longint;
const i=10; j=10;
begin
n:=10*i + 15*j;
write(n,'');
a:= 0;
write(a,' ');
b:= 1;
write(b,' ');
for k:=3 to n do begin
write(a+b,' ');
c:= b;
b:= a + b;
a:= c;
end;
readln
end.
Так как условия задачи нет, то делает ли программа то, что нужно - неизвестно.
var
a:array[1..100] of integer;
povt,i,j,elem:integer;
begin
povt:=0;
randomize;
for i:=1 to 100 do
a[i]:=random(1001);
for j:=1 to 100 do
povt:=0;
begin
for i:=1 to 100 do
if a[i]=a[j] then
begin
elem:=a[i];
povt:=povt+1;
end;
povt:=povt-1;
write('Число= '+elem+ ' Количество повторений= '+ povt);
end;