Вопрос по информатике:
Сформировать с помощью функции RANDOM() множество, содержащее 5 целых чисел из диапазона 1..10 и вывести это множество на экран.
паскаль.множества
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 04.01.2018 00:38
- Информатика
- remove_red_eye 11897
- thumb_up 33
Ответы и объяснения 1
// 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
- 05.01.2018 09:44
- thumb_up 47
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.