for ( int i = 1; i < 11;i++)
{
arr[i] = i × 2 + 1;
}
var
a : integer;
begin
readln (a);
if a > 0 then
a := a +1;
if a <0 then
a := a-2
if a= 0 then
a := 10;
writeln (a);
end.
Uses crt;
var
x,y,a,b:integer;
begin
clrscr;
while true do begin
randomize;
x:=random(10);
y:=random(10);
write('Введите первое число=');read(a);
write('Введите второе число=');read(b);
writeln(x,' ',y);
if ((a=x) and (b=y)) or ((a=y) and (b=x)) then begin
writeln('Вы угадали');
end
else begin
writeln('Вы не угадали');
end;
end;
end.
4 елочки могут принимать значение 2 значение (серебристый и ли зеленый). Как 1 бит - ложи или истина
4 елочки = 4 бита.
2^4 = 16.
Ответ: 16 различных способов