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

bekarys3 bekarys3    2   02.10.2019 19:30    0

Ответы
Matthi Matthi  09.10.2020 12:22
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.


Напишите программу которая последовасти натуральных чисел находит номер последнего элемента оканчива
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика