Выполни команду 《Вставка => Символ => Шрифт》, используя набор сивмолов шрифта Webdings, Wingalings (рис. 3) составь ребус по тематике праздничного дня.

234

251

Посмотреть ответы 1

Ответы на вопрос:

Alenadobro97

Информатика

4,7(24 оценок)

Dim a(100) as integer, odin as boolean dim k as integer , i as integer randomize for i = 1 to 100 a(i) = int(rnd*100) + 1 ' заполняем массив случайными числами от 1 до 100 print a(i) & chr(9); ' выводим начальный массив через табуляцию next i print "повторяющиеся элементы" for i = 1 to 100 for k = i+1 to 100 if a(i) = a(k) then print a(i) & chr(9); next k next i print "не повторяющиеся элементы" for i = 1 to 100 odin = true for k = i+1 to 100 if a(i) = a(k) then odin = false next k if odin = true then print a(i) & chr(9); next i end