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

4. Какая фигура получится после выполнения программы?
переменная х
пероопусти
х=100
повтори 3 [вперед x направо +20 х=х+30]
Б - 4
А)
B)
C)
D)
л​


4. Какая фигура получится после выполнения программы?переменная хпероопустих=100повтори 3 [вперед x

👇
Открыть все ответы
Ответ:
marsianin121
marsianin121
05.03.2023

инструмент для рисования растровых графических редакторов для создания изображения с традиционными методами необходимо выбрать инструмент рисования это могут быть фломастеры кисти красками карандаш и многое другое. существует редакторы jump. графические редакторы это программы для создания редактирования просмотра графических изображений. Ростов графический редактор официальная программа предназначена для создания и обработки изображений подобный программные продукты нашли широкое применение в работе художников-иллюстраторов при подготовке изображений к печати в типографии или фотобумаге или публикации в интернете

4,5(25 оценок)
Ответ:
Barvina779
Barvina779
05.03.2023
Var  ar: array[1..10000]of integer;
  ms: array[1..10000]of integer;
  i, c, n, j, p: integer;  b: boolean;
begin
  randomize;
  b := true;
  c := 1;
  write('Введите количество элементов массива:');
  read(n);
  writeln('Массив:');
  for i := 1 to n do ms[i] := -2147483648;
  for i := 1 to n do begin ar[i] := random(11); write(ar[i], ' '); end;
   for i := 1 to n do
    for j := i + 1 to n do
    begin
      if (ar[i] = ar[j]) then
       begin
        for p := 1 to c do
           if (ar[i] = ms[p]) then b := false;
           if (b = true) then begin ms[c] := ar[i]; c := c + 1; end;
        end;
      b := true;
    end;
  writeln;
  if (c = 1) then write('Нет')
   else  
begin
    write('Есть:');
    for i := 1 to c - 1 do  if(i <> c - 1) then write(ms[i], ',')  else write(ms[i]);
  end;
end.
4,4(81 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ