Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
xxgurman
1 / 1 / 3
Регистрация: 03.03.2013
Сообщений: 198
1

Из множества целых чисел 1.10 выделить множество чисел, на которые делится без остатка число 7. Вывести это множество на экран

04.04.2013, 18:53. Просмотров 739. Ответов 3
Метки нет (Все метки)

Из множества целых чисел 1..10 выделить множество чисел, на которые делится без остатка число 7. Вывести это множество на экран.
Найдите ошибку

Pascal
1
2
3
4
5
6
7
8
9
10
program prac4_z4;
uses crt;
var i:byte;
begin
 clrscr;
write('Множество чисел - делителей на 7: ');
for i:=1 to 10 do
if 7 mod i=0 then write(i,' ');
readln;
end.
и нужно i не через byte, а задать множество, допустим A:set of [1..10].
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.04.2013, 18:53
Ответы с готовыми решениями:

Из множества целых чисел 1..20 выделить: множество чисел, делящихся на 6 без остатка; множество чисел делящихся без остатка на 2 или на 3
Из множества целых чисел 1..20 выделить: множество чисел, делящихся на 6 без...

Из заданного множества целых чисел выделить множество нечётных чисел и чисел, делящихся без остатка на 17
Дано множество Xl,содержащее целые числа из диапазона . Сформировать новое...

Из множества целых чисел 1..20 выделить: множество чисел, делящихся без остатка на 6
Из множества целых чисел 1..20 выделить: множество чисел, делящихся без остатка...

Из множества целых чисел 1..20 выделить: множество чисел, делящихся без остатка на 6;
Из множества целых чисел 1..20 выделить: множество чисел, делящихся без остатка...

Пусть заданы множество А и множество В целых чисел, вывести напечатать все элементы множества В которые не входят в множество А.
Пусть заданы множество А и множество В целых чисел, вывести напечатать все...

3
Kodzaev
3009 / 1898 / 1646
Регистрация: 30.04.2011
Сообщений: 3,054
04.04.2013, 19:01 2
Pascal
1
2
3
4
5
6
7
8
9
Const
  m=[1..10];
Var
  i: Byte;
BEGIN
For i:=1 to 10 do
If (i in m) and (7 mod i=0) Then
Write(i,' ');
END.
1
Тамила
752 / 546 / 209
Регистрация: 12.11.2009
Сообщений: 1,100
04.04.2013, 19:07 3
Цитата Сообщение от xxgurman Посмотреть сообщение
A:set of [1..10]
i при этом все равно будет byte или integer
Pascal
1
2
3
s:set of byte;
...
if 7 mod i=0 then include(s,i);
1
Kodzaev
3009 / 1898 / 1646
Регистрация: 30.04.2011
Сообщений: 3,054
04.04.2013, 19:14 4
Если под словом выделить имеется в виду создать новое множество, то так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Const
  m=[1..10];
Var
  i: Byte;
  a: Set of Byte;
BEGIN
Writeln('Исходное множество:');
For i:=1 to 10 do
begin
  If (i in m) and (7 mod i=0) Then
  Include(a,i);
  If i in m Then
  Write(i,' ');
end;
Writeln;
Writeln('Полученное множество:');
For i:=1 to 7 do
If i in a Then
Write(i,' ');
END.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.04.2013, 19:14

Пусть заданы множество А и множество В целых чисел, вывести (напечатать) все элементы множества В которые не входят в множество А.
Решите Пожалуйста !!!

Из множеств целых чисел выделить подмножество, на которые делится без остатка число 444
Задание звучит так. Из множеств целых чисел 1..100 выделить множество чисел на...

Из диапазона целых чисел m..n выделить Множество чисел, делящихся без остатка на k
Из диапазона целых чисел m..n выделить: 1) Множество чисел, делящихся без...


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

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

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