Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
1 / 1 / 1
Регистрация: 07.12.2013
Сообщений: 57
1

Построить множество, состоящее из чисел, кратных 7, но не кратных 6 из диапазона 1..255.

07.12.2013, 18:18. Просмотров 960. Ответов 1
Метки нет (Все метки)

Построить множество, состоящее из чисел, кратных 7, но не кратных 6 из диапазона 1..255.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.12.2013, 18:18
Ответы с готовыми решениями:

Построение множества из целых чисел, кратных 7, но не кратных 5 и 9 из диапазона от 1 до 200
Построить множество, состоящее из целых чисел, кратных 7, но не кратных 5 и 9 из диапазона от 1 до...

Составить множество состоящее из составных чисел <255
Составить множество состоящее из составных чисел &lt;255. Напечатайте элементы этого множества в...

Сформировать множество целых чисел из диапазона 1..255
Сформировать множество целых чисел из диапазона 1..255, представимых в виде n2+m2. Выведите на...

Дано множество целых чисел, выделить множество чисел кратных 3 и 4
Дано множество целых чисел, выделить: 1) Множество чисел кратных 3; 2) Множество чисел кратных 4;...

1
435 / 362 / 324
Регистрация: 05.11.2013
Сообщений: 1,024
Записей в блоге: 6
07.12.2013, 18:38 2
Лучший ответ Сообщение было отмечено assm как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
type numbers = set of byte;
var a:numbers;
 b:byte;
begin
 for b:=1 to 255 do if (b mod 7 = 0 ) and (b mod 6 <>0) then a:=a+[b];
 writeln ('Коды значений множества');
 for b:=1 to 255 do if b in a then write (ord(b),' ');
 readln;
end.
Темы называй нормально! Читай правила
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.12.2013, 18:38

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Введите множество состоящее из 15 целых чисел от 0 до 255. определите сколько среди них точных квадратов(одинаковые числа считать по разу)
Введите множество состоящее из 15 целых чисел от 0 до 255. определите сколько среди них точных...

Найти сумму чисел, кратных 3 из диапазона от 1 до 30
Найти сумму чисел, кратных 3 из диапазона от 1 до 30. Тема Цикл. Через While! Напишите решение...

Найти сумму всех чисел от a до b, кратных 3, но не кратных 7
50. Найти сумму всех чисел от a до b, кратных 3, но не кратных 7.

Найти сумму всех чисел, кратных 2, но не кратных 10
Найти сумму всех чисел, кратных 2, но не кратных 10.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.