Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
nastya11w
08.02.2020 11:40 •
Информатика
Дана последовательность чисел, среди которых имеется один нуль. вывести на печать все числа до нуля включительно. abcpascal
Показать ответ
Ответ:
viteralinap06rap
19.08.2020 15:26
// 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->x<>0).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
0,0
(0 оценок)
Популярные вопросы: Информатика
leraleralera13
03.12.2020 14:12
Дана строка. Преобразовать в ней все строчные буквы ( как латинские,так и русские) в прописные, а прописные в строчные. Паскаль....
DipperGo
25.05.2021 23:34
У исполнителя Альфа две команды, которым присвоены номера: 1. прибавь 2 2. умножь на b (b - неизвестное натуральное число; b ≥ 2) Выполняя первую из них, Альфа увеличивает число...
оаиьлжщ
15.09.2020 10:27
Что является представлением программы в виде графического изображения? * Блок-схема алгоритма. Трассировка алгоритма. Трансляция алгоритма. Тестирование алгоритма. Отладка алгоритма....
Pleshkova01
09.04.2020 12:05
Расить Задание 2. Составить алгоритм, который переместит Робота из Начального положения в клетку, отмеченную звездочкой. Задачу решить для конкретного рисунка, применяя команду...
tofik4
06.07.2021 17:03
0. Текст занимает 3 страниц. На каждой странице 40 строк по 60 символов. Определите объем оперативной памяти, который будет занимать текст. ответ дайте в Кбайтах....
Dragolord
10.08.2022 13:34
Задание 5. Заполните таблицу. Источник:?Приемник:?Ситуация:Учитель объясняет ученикам но-Вый материалАктер в театре произносит монологЧеловек нажимает кнопку лифтаПассажир в...
ilyadengin
19.03.2020 12:37
Сколько нужно времени чтобы передат файл объемом 45Тбайт при скорости передачи данных 256000 бит/с...
zvezdaanara
23.07.2022 15:54
В пяти тестовых опросах мальчик получил оценки. Составьте программу, которая определит среднее значение оценок, полученных мальчиком в пяти опросах. c++...
Valerie954
15.12.2020 03:47
Ақпаратты сақтайтын деректер базасының объектісі ...
PonchiKmm
05.12.2022 10:38
1. Определить неверное имя файла, объяснить почему а) 1111. jpg б) пример:doc в) LIST.1.doc 2. Определите файл, в котором может А) храниться заставка к игре Б) быть записан...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var a:=(SeqRandom(ReadInteger('n=')-1,1,99)+Seq(0)).ToArray.Shuffle;
Writeln('Исходный набор'); a.Println;
Writeln('Элементы до нуля'); a.TakeWhile(x->x<>0).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