Опубликовано 5 лет назад по предмету Информатика от arseniy200334

Напишите программу которая последовасти натуральных чисел находит номер последнего элемента оканчивающиеся на цифру 8. Если в последовательности нет таких элементов, то ввести сообщение NO. Последовать формируется в программе посредством генерации случайных чисел. Элементы последовательности принимают значения от 0 до 30000. Количество чисел 100

Ответ

Ответ дан Аккаунт удален

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018
Внимание! Если программа не работает, обновите версию!
begin
var (i, m):=(1, 0);
SeqRandom(100, 0, 30000)
.Foreach(t ->
begin
if t mod 10 = 8 then m := i;
Inc(i);
t.Print
end);
Println;
Println;
if m = 0 then Print('NO')
else m.Print
end.
1. Ответ
  
  Ответ дан Сергей2407
  
  То есть нельзя создать последовательность, вывести её на экран, затем отсортировать её и снова вывести на экран
2. Ответ
  
  Ответ дан Аккаунт удален
  
  Не совсем так. Если есть формула для получения членов последовательности, она будет генерироваться сколько угодно раз, но каждый раз просматриваться от начала. Такие последовательности называются в теории немутирующими. Если же последовательность мутирующая, то либо алгоритм должен быть однопроходным, либо ее нужно сохранить в массив. Например, ка в случае использования датчика случайных чисел или клавиатурного ввода.
3. Ответ
  
  Ответ дан Аккаунт удален
  
  С мутирующими последовательностями поступают так например, как вот я поступил в своем решении.
4. Ответ
  
  Ответ дан Сергей2407
  
  Понятно, спасибо)
5. Ответ
  
  Ответ дан Аккаунт удален
  
  Пожалуйста

Самые новые вопросы

Математика - 5 лет назад

Решите уравнения: а) 15 4 ∕19 + x + 3 17∕19 = 21 2∕19; б) 6,7x - 5,21 = 9,54

Помогите решить задачи на паскаль.1) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти произведение всех элементов массива.2) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти сумму четных элементов массива.3) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива.4) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива среди элементов, кратных 3.

География - 5 лет назад

Почему япония - лидер по выплавке стали?

Математика - 5 лет назад

Чему равно: 1*(умножить)х? 0*х?

Русский язык - 5 лет назад

В каком из предложений пропущена одна (только одна!) запятая?1.она снова умолкла, точно некий внутренний голос приказал ей замолчать и посмотрела в зал. 2.и он понял: вот что неожиданно пришло к нему, и теперь останется с ним, и уже никогда его не покинет. 3.и оба мы немножко удовлетворим свое любопытство.4.впрочем, он и сам только еле передвигал ноги, а тело его совсем застыло и было холодное, как камень. 5.по небу потянулись облака, и луна померкла.

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программа не работает, обновите версию!

Информация