8. Одна компания выпустила три группы лотерейных билетов: для молодёжи, для взрослых и для пенсионеров. Номера билетов каждой группы лежат в пределах:
•для молодёжи — от 1 до 100;
•для взрослых — от 101 до 200;
•для пенсионеров — от 201 до 250.
С помощью компьютера выберите случайным образом лотерейный билет из каждой группы.
Ответ
Вот пример программы на языке Паскаль, которая выбирает случайный билет из каждой группы:
var
youthTicket, adultTicket, pensionTicket: integer;
begin
// Выбор случайного билета для молодёжи
randomize;
youthTicket := random(100) + 1;
// Выбор случайного билета для взрослых
randomize;
adultTicket := random(100) + 101;
// Выбор случайного билета для пенсионеров
randomize;
pensionTicket := random(50) + 201;
writeln(‘Молодёжный билет: ‘, youthTicket);
writeln(‘Взрослый билет: ‘, adultTicket);
writeln(‘Билет для пенсионера: ‘, pensionTicket);
end.
Программа сначала вызывает функцию randomize(), чтобы инициализировать генератор случайных чисел. Затем она использует функцию random() для генерации случайного числа из указанного диапазона. Программа выводит номера выбранных лотерейных билетов для каждой группы.