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

Вытручайте 3*7 div 2 mod 7/3 - trunc(sin(1))

👇
Увидеть ответ
Ответ:
shams200108
shams200108
13.11.2020
3*7 div 2 mod 7/3 - trunc(sin(1)) = 21 div 2 mod 7/3 - trunc(sin(1)) =
10 mod 7/3 - trunc(sin(1)) = 3/3 - trunc(0.8) = 1.0 - 0 = 1.0
4,5(56 оценок)
Открыть все ответы
Ответ:
kjhf2225
kjhf2225
13.11.2020
"Типовой школьный" Паскаль:

// PascalABC.Net 3.0, сборка 1064
const
  k = 100;

var
  s, wd: string;
  i, j, m, n, pt, step: integer;
  Words, WordsSort: array[1..k] of string;
  InOrder: boolean;

begin
  Write('Введите строку: '); Readln(s);
  n := Length(s); pt := 1; m := 0;
  repeat
    // Пропускаем все символы до первого непробельного
    while pt <= n do
      if Ord(s[pt]) <= 32 then Inc(pt) else break;
    if pt <= n then begin
      // Выделяем очередное слово
      wd := '';
      while pt <= n do
        if Ord(s[pt]) > 32 then begin wd := wd + s[pt];Inc(pt) end
        else break;
      if wd <> '' then begin Inc(m);Words[m] := wd end
    end
  until pt > n;
  // Теперь Words содержит все m слов.
  // Отсортируем их в массиве WordsSort методом Шелла
  for i := 1 to m do WordsSort[i] := Words[i];
  step := m div 2;
  while step > 0 do begin
    for j := m - step downto 1 do begin
      i := j;
      while i <= m - step do begin
        if WordsSort[i] > WordsSort[i + step] then begin
          wd := WordsSort[i];
          WordsSort[i] := WordsSort[i + 1];
          WordsSort[i + 1] := wd
        end;
        i := i + step
      end
    end;
    step := step div 2
  end;
  // Осталось поэлементно сравнить оба массива
  InOrder := true; i := 1;
  while InOrder and (i <= m) do
  begin InOrder := (Words[i] = WordsSort[i]); Inc(i) end;
  if m = 0 then Writeln('Строка не содержит слов')
  else
    if InOrder then Writeln('Cлова упорядочены')
    else Writeln('Cлова не упорядочены')
end.

Тестовое решение:
Введите строку: слово1    слово2    слово3    слово4 слово5
Cлова упорядочены

Введите строку: слово1    слово2    слово4    слово3 слово5
Cлова не упорядочены

"Современный" вариант решения на Паскале:

// PascalABC.Net 3.0, сборка 1064
var
  s:string;
begin
  Write('Введите строку: '); Readln(s);
  var Delim:=Range(0,32).Select(x->Chr(x)).ToArray;
  var Words:=s.Split(Delim).Where(x->x<>'');
  var WordsSort:=Words.Sorted;
  if Words.SequenceEqual(WordsSort) then Writeln('Cлова упорядочены')
  else Writeln('Cлова не упорядочены')
end.

Тестовое решение совпадает с вышеприведенным.
4,6(59 оценок)
Ответ:
milena7772
milena7772
13.11.2020

Месяц находим методом половинного деления.

Двоичная запись числа 366 размещается в 9 битах (в 8 битах размещается только 256 чисел , а в 9 битах - уже 512).

То есть , понадобится задать 8 вопросов и девятой фразой будет ответ.

В году 365 (366) дней. Пусть 366, для 365 рассуждение то же.

Рассмотрим самый худший вариант

Середина года - день номер 366/2=183. Это 1 июля.

Первый вопрос: День рождения в первой половине года?

Допустим, да.

Второй вопрос: День рождения в первом квартале?

Допустим, нет. Следовательно во втором.

Второй квартал - это дни с номерами от 92 до 182. Середина - среднее арифметическое. (92+182)/2=137. Это дата 17 мая.

Третий вопрос: День рождения позднее 17 мая?

Допустим, нет.

Следовательно, интервал дат 1 апреля - 17 мая, 91 день. Опять делим на 2, сужая интервал до 22 дней. Это дата 22 апреля.

Четвертый вопрос: День рождения позднее 22 апреля?

Допустим, нет.

Новый диапазон поиска - 23 апреля - 17 мая. Половиним его.

Пятый вопрос: День рождения позднее 29 апреля?

Допустим, нет.

Поиск сузился до 23 - 29 апреля. Снова берем половину.

Шестой вопрос: День рождения позднее 26 апреля?

Допустим, нет.

Интервал дат 23-26 апреля. Половиним.

Седьмой вопрос: День рождения позднее 24 апреля?

Допустим, да.

Интервал дат 25-26 апреля.

Восьмой вопрос: День рождения 25 апреля?

Допустим, нет

Девятая фраза: Ваш день рождения 26 апреля.

4,4(39 оценок)
Это интересно:
С
Как сделать бальзам для губ из вазелина: домашний рецепт...
Х
Игра в Джекс: правила и стратегии...
О
Как правильно сказать привет на китайском языке: все, что нужно знать...
И
Как научиться петь: советы для начинающих...
К
Как войти в Windows со стандартным паролем администратора...
К
Как открыть программу Terminal на Mac...
Х
Как сделать купальник: советы от профессионала...
22.07.2022
Боязнь высоты: как преодолеть её и наслаждаться жизнью...
Х
Как сделать буклет из бумаги: пошаговая инструкция для начинающих...
К
Узнайте, как скачать ролики с YouTube, используя Chrome...
Новые ответы от MOGZ: Информатика
усенок
усенок
14.04.2020
1. в чем суть последовательной детализации? 2. каковы правила описания алгоритмов (процедур) для исполнителя грис? 3. как записывается команда обращения к процедуре в языке...
Leonelle
Leonelle
01.11.2020
Даны два числа. если первое число больше второго по абсолютной величине, то необходимо уменьшить первое в 5 раз иначе оставить числа без изменений. решить в c++...
Вишеневка123456789
Каково назначение устройств ввода и вывода должны ли эти устройства обязательно входить в состав любого компьютера...
egormixajlov1
egormixajlov1
10.05.2020
20 ! , . написать программу паскаль. вводится число. вывести четность числа....
масякауе
масякауе
13.01.2023
Категория каких значений функции преобладает на интервале, положительных или отрицательных? (! составить блок схему) y=(√|х| + х*tg^3*х [при хmin=1 xmax=2 δ=0.1]...
Sevchi
Sevchi
07.08.2022
Трое друзей отправились на велопрогулку. когда велодорожка проходила вдоль шоссе, мимо них на большой скорости пронеслась машина. -— ого, зеленый вольво! — сказал антон...
vitakotov009
vitakotov009
19.09.2020
Вывести на экран квадраты натуральных чисел от 1 до 10...
akhdogru
akhdogru
19.09.2020
1)найдите и зачеркните лишнее слово группе: (клавиатура,мышь,сканер,акустические колонки.); (принтер,монитор,сканер,наушники); (графопостроитель,джойстик,принтер,монитор);...
fox370
fox370
17.04.2023
2. какое значение получит переменная а, при вычислении выражения: а: = sqrt(4)+ sqr(-5+7);...
almiradkzbd
almiradkzbd
17.04.2023
3. определите результат выполнении фрагмента программы: j : = 0; s : = 0: repeat j: =j+1; s : = s+2*j: until j=4; writeln (s);...

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
О НАС
ПОМОЩЬ
App
.
.
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ