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

Расставьте шаги алгоритма для перемещения объекта. Сдвинуть изображение той же формы немного вперед. Удалить форму I 1 Обновить окно. Вставить фигуру в рабочую область. Обновить главное окно, пока изображение отображается на экране.

👇
Открыть все ответы
Ответ:
089280ig
089280ig
05.12.2020
{ задание 1}
const
  n=17;
var
  a:array[1..n] of integer;
  i,k:integer;
begin
  Randomize;
  k:=0;
  for i:=1 to n do begin
    a[i]:=Random(99)+1;
    Write(a[i],' ');
    if a[i] mod 2=0 then k:=k+1
    end;
  Writeln;
  Writeln('k=',k)
end.

Пример
43 86 43 13 24 18 93 38 38 59 15 75 12 92 8 72 8
k=10

{ задание 2/3}
const
  n=17;
var
  a:array[1..n] of integer;
  i,s:integer;
begin
  Randomize;
  s:=0;
  for i:=1 to n do begin
    a[i]:=Random(99)+1;
    Write(a[i],' ');
    if a[i] mod 10=2 then s:=s+a[i]
    end;
  Writeln;
  Writeln('s=',s)
end.

Пример
58 39 12 24 91 57 14 44 47 61 31 10 95 54 42 98 76
s=54
4,8(70 оценок)
Ответ:
kjgftgv
kjgftgv
05.12.2020
Запишем таблицу распределения мест по купе:
Купе Места
1          1-4,53,54
2         5-8,51,52
3         9-12,49,50
4      13-16,47,48
5      17-20,45,46
6      21-24,43,44
7      25-28,41,42
8      29-32,39,40
9      33-36,37,38
Установим связь номера места с номером купе. Предлагается следующий (конечно же, не единственный) вариант:
\begin {cases} (n-1) \div 4 +1, \quad n=1,2,...,36 \\ (54-n) \div 2 \right \rceil +1, \quad n=37,38,...,54 \end {cases}
Здесь знаком ÷ обозначена операция целочисленного деления.

Теперь можно написать программу.  Язык программирования в задании не указан, поэтому выбран язык свободно распространяемой для целей обучения системы программирования PascalABC.Net

var
  n:integer;
begin
  Write('Укажите номер места: '); Read(n);
  Write('Место располагается в купе №');
  if n<=36 then Write((n-1) div 4 + 1)
  else Write((54-n) div 2 + 1)
end.

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