var i,j,n,k,k1,k2,k3: integer; bb: boolean;
a: array of integer;
begin
write('N = ');
readln(n);
if ((n mod 3 = 0) and (n<>0)) then begin
write('K1 = ');
readln(k1);
write('K2 = ');
readln(k2);
write('K3 = ');
readln(k3);
setlength(a,n);
for i:=0 to n-1 do begin
write('Заполним номер ',i+1,' -> ');
readln(a[i]);
end;
i:=0;
while (i<n) do
begin
a[i]:=k1-a[i];
a[i+1]:=k2-a[i+1];
a[i+2]:=k3-a[i+2];
inc(i,3);
end;
write('K = ');
readln(k);
for i:=0 to n-2 do
if (a[i]+a[i+1]>=k) then begin write('В комнатах ',i+1,' и ',i+2,' есть ',a[i]+a[i+1],' свободных мест'); bb:= true; end;
if (bb=false) then writeln(0);
end else writeln('Введите число кратное 3 и неравное 0');
readln;
end.
В зеленом ящике собраны команды, которые позволяют управлять пером или карандашом, которым могут рисовать наши объекты. Как и черепашка Лого, все объекты Скретч могут рисовать и оставлять на экране свои отпечатки.
Мы можем менять цвета и размер карандаша, поднимать и опускать карандаш. В результате выполнения сценария на экране рисуются разноцветные геометрические фигуры.
Команда Назначение
Очистить экран от всех следов, которые на нем оставили объекты.
После этой команды за движущимся объектом будет оставаться след.
После этой команды при движении объекта след не остаётся.
Выбрать цвет, которым мы собираемся рисовать.
Изменяет цвет по отношению к текущему. Можно вводить как положительные, так и отрицательные числа.
Выбрать численное значение цвета.
Установить размер тени, который оставляет объект.
Установить градиент цвета следа, который оставляет объект. 100 –
белый, 0 – черный.
Изменить толщину пера по отношению к текущему.
Установить толщину пера. По умолчанию она равна 1.
Отпечатать объект на экране.
Объяснение: