Напишите программу которая последовасти натуральных - вопрос №9588536 от bochar2001roody 12.05.2021 11:07

Question

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

bochar2001roody · Answer

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;

if m = 0 then Print('NO')

else m.Print

end.

Напишите программу которая последовасти натуральных чисел находит номер последнего элемента оканчива