Вопрос по информатике:
Дана последовательность чисел, среди которых имеется один нуль. Вывести на печать все числа до нуля включительно.
ABCPascal
- 11.06.2018 03:01
- Информатика
- remove_red_eye 11531
- thumb_up 45
Ответы и объяснения 1
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
var a:=(SeqRandom(ReadInteger('n=')-1,1,99)+Seq(0)).ToArray.Shuffle;
Writeln('Исходный набор'); a.Println;
Writeln('Элементы до нуля'); a.TakeWhile(x->x0).Println
end.
Тестовое решение:
n= 20
Исходный набор
45 28 62 16 54 29 50 5 39 32 94 95 57 0 53 2 4 86 11 23
Элементы до нуля
45 28 62 16 54 29 50 5 39 32 94 95 57
- 12.06.2018 05:45
- thumb_up 31
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.