Если цветов 256 = 2^8, то каждый пиксель кодируется 8 бит = 1 байт.
Для картинки 16х64 пикселей нужно 16*64 = 1024 байт = 1 Кбайт.
INPUT N
F=1
FOR I=1 TO N
F=F*N
NEXT I
PRINT F
Значение a подставляешь сюда <span>b:=5+7*a
А потом полученное b сюда -> </span><span>b:=b/2*a
</span>b = 3
1)
program gt;
var s,n,a,i:integer;
begin
read(n)
s:=0;
randomize;
for i:=1 to n do
begin
a:=random(100);
s:=s+a;
end;
writeln(s);
end.
2)
можно сделать с файлом
assign...
reset...
rewrite...
while not eof(..) do
begin
read(..,a);
s:=s+a;
end;
writeln(...,s);
close(..)
close(..);
end.