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

C. Гений или хвастун? Ограничение времени 1 секунда
Ограничение памяти 256.0 Мб
Ввод стандартный ввод или input.txt
Вывод стандартный вывод или output.txt
В одном небольшом государстве проживает всем известный гениальный Святослав. На самом деле он может быть и не очень гениальный, но сам-то он знает, насколько он гениальный. Чтобы и вы поверили в его гениальность, он загадал некоторое положительное, чётное и отличное от нуля число. Мы знаем, что это число шестизначное. Сам Святослав называет своё число гениальным, потому что оно подчиняется следующим правилам: 1. его правая половина больше левой половины 2. его левая половина является числом простым 3. его правая половина делится на 2, 3 и 7, но при этом не делится на 5.

Определите, действительно ли Святослав гениальный или он большой хвастун.

Формат ввода
В единственной строке – задуманное Святославом число

Формат вывода
Выведите YES, если Святослав гениален.

Выведите NO, если Святослав большой хвастун.

👇
Ответ:
ZnaniyaSosut
ZnaniyaSosut
23.02.2021

Объяснение:

Вывод YES Святослав No Великой Эмманюэля в этом году

4,5(71 оценок)
Открыть все ответы
Ответ:
лизя5ррр
лизя5ррр
23.02.2021

терминатор начала и конца работы функции

терминатором начинается и заканчивается любая функция. тип возвращаемого значения и аргументов функции обычно указывается в комментариях к блоку терминатора.

операции ввода и вывода данных

в гост определено множество символов ввода/вывода, например вывод на магнитные ленты, дисплеи и т.п. если источник данных не принципиален, обычно используется символ параллелограмма. подробности ввода/вывода могут быть указаны в комментариях.

выполнение операций над данными

в блоке операций обычно размещают одно или несколько (гост не запрещает) операций присваивания, не требующих вызова внешних функций.

блок, иллюстрирующий ветвление алгоритма

блок в виде ромба имеет один вход и несколько подписанных выходов. в случае, если блок имеет 2 выхода (соответствует оператору ветвления), на них подписывается результат сравнения — «да/нет». если из блока выходит большее число линий (оператор выбора), внутри него записывается имя переменной, а на выходящих дугах — значения этой переменной.

вызов внешней процедуры

вызов внешних процедур и функций помещается в прямоугольник с дополнительными вертикальными линиями.

начало и конец цикла

символы начала и конца цикла содержат имя и условие. условие может отсутствовать в одном из символов пары. расположение условия, определяет тип оператора, соответствующего символам на языке высокого уровня — оператор с предусловием (while) или постусловием (do … while).

подготовка данных

символ «подготовка данных» в произвольной форме (в гост нет ни пояснений, ни примеров), задает входные значения. используется обычно для циклов со счетчиком.

соединитель

в случае, если блок-схема не умещается на лист, используется символ соединителя, отражающий переход потока между листами. символ может использоваться и на одном листе, если по каким-либо причинам тянуть линию не удобно.

комментарий

комментарий может быть соединен как с одним блоком, так и группой. группа блоков выделяется на схеме пунктирной линией.

4,7(40 оценок)
Ответ:
yarikkuisluiy
yarikkuisluiy
23.02.2021
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var m,n:integer;
  Write('Количество строк и столбцов матрицы: ');
  Read(n,m);
  var a:=MatrixRandom(n,m,10,99);
  for var i:=0 to n-1 do begin
    for var j:=0 to m-1 do Print(a[i,j]);
    Writeln
    end;
  var p:=ReadInteger('Введите число Р:');
  var b:array of integer;
  SetLength(b,4*m);
  var k:=0;
  for var i:=n-p to n-1 do
    for var j:=0 to m-1 do
      if a[i,j] mod 4=0 then begin
        b[k]:=a[i,j]; Inc(k)
        end;
  SetLength(b,k);
  b.Print
end.

Тестовое решение:
Количество строк и столбцов матрицы: 6 8
67 70 68 72 38 72 96 38
49 75 24 55 72 63 21 40
72 12 60 22 74 30 13 45
22 45 39 24 35 97 64 31
76 62 15 94 56 28 31 13
41 67 75 37 67 13 25 20
Введите число Р: 4
72 12 60 24 64 76 56 28 20
4,5(1 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ