Для хранения растрового изображения размером 16х16 используется 128 байт памяти. Каково максимально возможное количество цветов в палитре данного изображения?
Ответы
PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
Внимание! Если программа не работает, обновите версию!
Самое глупое, что можно было придумать - использовать цикл с предусловием while ... do там, где имеется заданное число повторений:
begin
var n:=ReadInteger('n=');
var (s,i):=(0.0,1);
while i<=n do begin
s+=1/Sqr(2*i+1);
i+=1
end;
Writeln('S=',s)
end.
Пример
n= 10
S=0.210988884817533
Гораздо естественнее тут выглядит цикл со счетчиком:
begin
var n:=ReadInteger('n=');
var s:=0.0;
for var i:=1 to n do
s+=1/Sqr(2*i+1);
Writeln('S=',s)
end.
А если использовать современные возможности программирования в PascalABC.NET, решение вообще в одну строчку:
begin
Writeln('S=',SeqGen(ReadInteger('n='),t->1/Sqr(2*t+1),1).Sum)
end.
Внимание! Если программа не работает, обновите версию!
Самое глупое, что можно было придумать - использовать цикл с предусловием while ... do там, где имеется заданное число повторений:
begin
var n:=ReadInteger('n=');
var (s,i):=(0.0,1);
while i<=n do begin
s+=1/Sqr(2*i+1);
i+=1
end;
Writeln('S=',s)
end.
Пример
n= 10
S=0.210988884817533
Гораздо естественнее тут выглядит цикл со счетчиком:
begin
var n:=ReadInteger('n=');
var s:=0.0;
for var i:=1 to n do
s+=1/Sqr(2*i+1);
Writeln('S=',s)
end.
А если использовать современные возможности программирования в PascalABC.NET, решение вообще в одну строчку:
begin
Writeln('S=',SeqGen(ReadInteger('n='),t->1/Sqr(2*t+1),1).Sum)
end.
PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
Внимание! Если программа не работает, обновите версию!
Самое глупое, что можно было придумать - использовать цикл с предусловием while ... do там, где имеется заданное число повторений:
begin
var n:=ReadInteger('n=');
var (s,i):=(0.0,1);
while i<=n do begin
s+=1/Sqr(2*i+1);
i+=1
end;
Writeln('S=',s)
end.
Пример
n= 10
S=0.210988884817533
Гораздо естественнее тут выглядит цикл со счетчиком:
begin
var n:=ReadInteger('n=');
var s:=0.0;
for var i:=1 to n do
s+=1/Sqr(2*i+1);
Writeln('S=',s)
end.
А если использовать современные возможности программирования в PascalABC.NET, решение вообще в одну строчку:
begin
Writeln('S=',SeqGen(ReadInteger('n='),t->1/Sqr(2*t+1),1).Sum)
end.
Внимание! Если программа не работает, обновите версию!
Самое глупое, что можно было придумать - использовать цикл с предусловием while ... do там, где имеется заданное число повторений:
begin
var n:=ReadInteger('n=');
var (s,i):=(0.0,1);
while i<=n do begin
s+=1/Sqr(2*i+1);
i+=1
end;
Writeln('S=',s)
end.
Пример
n= 10
S=0.210988884817533
Гораздо естественнее тут выглядит цикл со счетчиком:
begin
var n:=ReadInteger('n=');
var s:=0.0;
for var i:=1 to n do
s+=1/Sqr(2*i+1);
Writeln('S=',s)
end.
А если использовать современные возможности программирования в PascalABC.NET, решение вообще в одну строчку:
begin
Writeln('S=',SeqGen(ReadInteger('n='),t->1/Sqr(2*t+1),1).Sum)
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Выберите примеры исполнителя
Автор: Staroverovanatasa494
Переведите число 143, 511 из десятичной системы счисления в восьмеричную
Автор: ekaterinkat
ответ:16
Объяснение:
На пиксель приходится 128*8/16²=4 бита.
2^4=16 цветов.