Переведите число 2985674 в двоичную систему пятиричную и шестнадцатиричную

"Типовой школьный" Паскаль:

// 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.

Тестовое решение совпадает с вышеприведенным.

Поиск...

3

Избавься от ограничений

ПОПРОБУЙ ЗНАНИЯ ПЛЮС СЕГОДНЯ

Участник Знаний

14.09.2016

Информатика

5 - 9 классы

ответ дан • проверенный экспертом

1. Что может быть опасным для здоровья при работе в компьютерном классе?

большая нагрузка на зрение

повышенная нагрузка на суставы кистей

электрический ток

излучение от батарей отопления

излучение от мониторов

2. Какие правила надо выполнять при работе в сети Интернет?

смотреть только сайты на русском языке

не скачивать файлы и программы

не запускать программы, полученные из Интернета

не использовать электронную почту

не изменять настроек браузера

3. Какие программы можно запускать на компьютере?

которые относятся к теме урока

любые с разрешения учителя

все, кроме игровых программ

все, кроме программ с вирусами

все, кроме программ из Интернета

4. Какое напряжение в электрической сети компьютерного класса?

380 вольт

36 вольт

220 вольт

127 вольт

5 вольт

5. Почему расстояние от глаз до экрана монитора должно быть не менее 60-70 см?

на этом расстоянии лучше всего видно

из-за электромагнитного излучения

из-за радиоактивного излучения

чтобы не искривить позвоночник

чтобы не утомлять глаза

6. Почему нельзя входить в кабинет информатики в верхней одежде и грязной обуви?

можно испачкать пол и мебель

учитель не переносит неаккуратности

пыль и грязь засасываются в компьютеры

уборщица не может часто убирать кабинет

пыль вредит здоровью учеников и учителя

7. Сколько времени в день можно работать за компьютером ученикам средней и старшей школы?

20 минут

1,5 часа

около 4 часов

около 6 часов

без ограничений

8. Какие требования должен выполнять ученик старше 14 лет, чтобы его можно было допускать к работе на компьютере?

пройти инструктаж по технике безопасности

расписаться в журнале инструктажа

исправить все неудовлетворительные оценки

принести разрешение от родителей

соблюдать указания учителя

9. Что запрещается делать ученику в компьютерном классе?

нажимать на клавиши

отсоединять и подсоединять устройства компьютера

включать напряжение сети

использовать наушники

разбирать и ремонтировать компьютеры

10. Что можно делать только с разрешения учителя?

брать со стола учителя задание

включать и выключать компьютер

списывать на флэш-диск свои работы

проверять флэш-диски антивирусами

работать на чужом компьютере

11. Что делать, если не работает мышь или клавиатура?

сообщить учителю

отсоединить и присоединить снова разъём устройства

перезагрузить компьютер

выключить компьютер

12. Что делать при появлении запаха гари, дыма или странного звука из компьютера?

сообщить учителю

выключить компьютер

перезагрузить компьютер

продолжать работу

попытаться устранить неисправность

13. Какие правила нужно выполнять при работе за компьютером?

не работать вдвоём за одним компьютером

линия взгляда должна быть направлена в центр экрана

не класть тетради и учебники на клавиатуру

не кататься на креслах по кабинету

не перезагружать компьютер без разрешения

14. В каких случаях не следует выполнять работу на компьютере?

если плохо себя чувствуешь

если не подготовился к работе

если не хочется ее выполнять

если компьютер неисправен

если компьютер выключен

15. Что делать, если компьютер, за которым вы обычно работаете, выключен?

включить компьютер самостоятельно

сообщить учителю о проблеме

не выполнять работу вообще

перейти за другой свободный компьютер

выполнять работу вместе с кем-нибудь

16. Что делать при пожаре в компьютерном классе?

под руководством учителя покинуть кабинет

вызвать пожарную охрану

использовать огнетушитель

быстро выбежать из кабинета

выключить компьютер