Var k,n:integer;
begin
write('k = (k кратно 3) ');
readln(k);
n:=k div 3 mod 10;
writeln(k,'-я цифра последовательности 101102103…149150 = ',n);
end.
Пример:
<span>k = (k кратно 3) 27
27-я цифра последовательности 101102103…149150 = 9</span>
1) var n: integer;
2) <span>_а
1) A:=2;
2) readln (x);
read (x);
3) ,
4) write (x);
writeln (x);
5) +,-,*,/,</span>
Ответ:
Метод добавления выглядит так:
public void Extend(LinkedList list)
{
Node current = list.head;
while(current != null)
{
Add(current.Value);
current = current.Next;
}
}
Использовать можно так: list.Extend(list1);
list и list1 уже созданные в программе списки.
В список list добавятся элементы из списка list1.
1) в 3 раза, так как чтобы закодировать 512 цветов нужно 9 знаков - 9 бит, а на 8 - 3 знака - 3 бит. Путём несложных вычисление 9/3 = 3
2) 128*128 = 16384 точки нужно закодировать. 4 кбайт - 32768 бит. 32768/16385 = 2 бита. А с помощью 2-х бит можно закодировать 4 цвета.
var n,i,s,k:integer;
Begin
for i:=1 to 7 do Begin
read(n);
if n>0 then k:=k+1;
if n<0 then s:=s+n;
end;
writeln(k,s);
End.