Название предмета: книжка.
Какую информацию несёт: она несёт много информации. Во-первых, это физическое тело, которое имеет прямоугольную форму, созданная из жёсткого материала. Запаха книга не имеет, звука не издает.
Эту информацию мне помогли определить органы чувств: зрения, осязания, слуха, обоняния.
Var
i, k, x: integer;
begin
k:=0;
for i:=1 to 10 do
begin
readln(x);
if x mod 2 = 0 then //если x четный
inc(k); //увеличиваем k на 1
end;
writeln('Четных: ', k);
writeln('Нечетных: ', 10-k);
<span>end.</span>
Красный+ желтый+желтый
красный+красный+желтый
Желтый+желтый+желтый
Красный+красный+красный
def for10(n):
return sum([1/x for x in range(1, n+1])
def for11(n):
return sum([(n+x)**2 for x in range(0, n+1)])
//Huh, if my Master wants.
var s,s1,s2:string;
begin;
write('String:');
readln(s);
write('Substring:');
readln(s1);
if length(s1)<>1 then exit;
while pos(s1,s)<>0 do
begin;
s2:=s2+s[pos(s1,s)];
delete(s,pos(s1,s),1);
end;
write('Result:',length(s2));
<span>end.</span>