Вывод результата. Множество

shkolnik · 01.07.2014, 18:45

Очень срочно!!!
Вот код программы. Нужно сделать вывод результата на экран.
type
mn=set of byte;
var
i,n,k:integer;
l:mn;
begin
randomize;
writeln ('число');
readln (n);
l:=[];
for i:=1 to n do
l:=l+[random(100)];
.....
end.

Vladimir_S · 01.07.2014, 19:17

Легко:
for i:=0 to 99 do
if (i in l) then write(i:3);

shkolnik · 01.07.2014, 19:36

Большое спасибо

01.07.2014, 18:45	#1 (permalink)
shkolnik Member Регистрация: 22.06.2014 Сообщений: 18 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Вывод результата. Множество Очень срочно!!! Вот код программы. Нужно сделать вывод результата на экран. type mn=set of byte; var i,n,k:integer; l:mn; begin randomize; writeln ('число'); readln (n); l:=[]; for i:=1 to n do l:=l+[random(100)]; ..... end.

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

01.07.2014, 18:45
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Давайте я вам помогу найти схожие с вашей темы Ввод-вывод в языке Си Тип, множество

01.07.2014, 19:17	#2 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Легко: for i:=0 to 99 do if (i in l) then write(i:3);

01.07.2014, 19:36	#3 (permalink)
shkolnik Member Регистрация: 22.06.2014 Сообщений: 18 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Большое спасибо

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070