Количество информации на 1 точку = log(2)16777216 = 24 бит = 3 байта
Для всего изображения:
1024*768*3 байт = 768*3 Кбайт = 768*3/1024 Мбайт = 2,25 Мбай
Program fantscrin;
const n = 17;
Var a: array [1..n] of integer;
i,s:integer;
Begin
for i:=1 to n do
a[i]:=random(20);
for i:=1 to n do
write(a[i],' ');
s:=0;
for i:=1 to n do
if(a[i] > 5) then s:=s+a[i];
writeln('');
write('Сумма: ',s);
End.
Photoshop,Gimp 2,На телефоны Glitchr,SLMMSK
Ответ:
это информация, которая может быть тебе полезной, Например: человек рассказал тебе что и как нужно делать при пожаре, (при случае пожара тебя эта информация может спасти)
То есть такой рассказ или объяснение которое тебе нужно и нужно всем людям.
Объяснение:
Var
i, n: integer;
s: longint;
begin
readln(n);
for i := 1 to n do
s := s + (n + i) * (n + i);
writeln(s);
end.