М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

2.
Вміст поточної (виділеної) комірки відображається

👇
Открыть все ответы
Ответ:
ZacLolka
ZacLolka
20.02.2020

В зеленом ящике собраны команды, которые позволяют управлять пером или карандашом, которым могут рисовать наши объекты. Как и черепашка Лого, все объекты Скретч могут рисовать и оставлять на экране свои отпечатки.

Мы можем менять цвета и размер карандаша, поднимать и опускать карандаш. В результате выполнения сценария на экране рисуются разноцветные геометрические  фигуры.

                    Команда                                                                               Назначение                                                                  

  Очистить экран от всех следов, которые на нем оставили объекты.

  После этой команды за движущимся объектом будет оставаться след.

  После этой команды при движении объекта след не остаётся.

  Выбрать цвет, которым мы собираемся рисовать.

  Изменяет цвет по отношению к текущему. Можно вводить как положительные, так и отрицательные числа.

  Выбрать численное значение цвета.

  Установить размер тени, который  оставляет объект.

   Установить градиент цвета следа, который оставляет объект. 100 –

белый, 0 – черный.

  Изменить толщину пера по отношению к текущему.

 Установить толщину пера. По умолчанию она равна 1.  

  Отпечатать объект на экране.

Объяснение:

4,5(39 оценок)
Ответ:
reded5610
reded5610
20.02.2020

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.

4,4(44 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ