Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
zaharsteam
22.06.2021 19:48 •
Информатика
Сформировать с функции random() множество, содержащее 5 целых чисел из диапазона 1..10 и вывести это множество на экран. паскаль.множества
Показать ответ
Ответ:
Валериевич
03.10.2020 01:44
// PascalABC.NET 3.0, сборка 1088
const
n=5;
var
s:set of 1..10;
k,t:1..10;
begin
Randomize;
k:=0;
repeat
t:=Random(10)+1;
if not (t in s) then begin Include(s,t); Inc(k) end
until k=5;
for k:=1 to 10 do
if k in s then Write(k,' ');
Writeln
end.
Тестовое решение:
2 7 8 9 10
0,0
(0 оценок)
Популярные вопросы: Информатика
msajkina
05.06.2023 08:06
Развернутым некоторый язык содержит только трёхбуквенные слова, которые можно образовывать из букв его алфавита в любых комбинациях. известно, что словарный запас языка составляет...
lilo52
21.04.2022 07:55
Решите контрольную «Коммуникационные технологии»...
covik332
28.01.2021 11:12
Что будет если нажать cntrl+alt+F4?...
persik123789
20.06.2022 07:30
Эссе на тему все самое интересное о 3d мире...
736Nikolay11111111
30.04.2021 03:24
Исполнитель черепашка, нарисуйте один из рисунков. сделайте скриншот из программы,...
Владик003
19.12.2021 13:14
Двузначное число.записанное в системе счисления с основанием 5 при перестановке цифр становится числом...
Лика1508
06.01.2020 21:05
Операции поиска сортировка вывод итоговых значений тест составить10 вопросов с ответами ...
Anglichanin228
23.10.2022 06:54
Как бы вы завоевали кочевников если бы были Александром македонским?...
настя7387
23.10.2022 06:54
Употребите числительные вместе с существительными в указанных падежах. 275 детали (Д.п., Тв.п.), 478 книг (П.п., Р.п.), 2019 год (Т.п., П.п.), 168 стульев (Р.п., Т.п.), 54 рыбки (Р.п.,...
реа200
17.05.2021 08:00
Точки А і В розміщенні по різні боки на однаковій відстані від прямої L. Знайдіть довжину відрізка АВ, якщо АО=12 см...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
const
n=5;
var
s:set of 1..10;
k,t:1..10;
begin
Randomize;
k:=0;
repeat
t:=Random(10)+1;
if not (t in s) then begin Include(s,t); Inc(k) end
until k=5;
for k:=1 to 10 do
if k in s then Write(k,' ');
Writeln
end.
Тестовое решение:
2 7 8 9 10