Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
1 / 1 / 0
Регистрация: 20.09.2013
Сообщений: 61
1

Задано множество целых чисел от 1 до 255. Получить из этого множества новое множество, в которой отсутствуют числа, кратные 3

17.03.2014, 20:01. Показов 1304. Ответов 3
Метки нет (Все метки)

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

Задано множество целых чисел из интервала. Разработать программу, которая изымает из этого множества все четные числа
Задано множество целых чисел из интервала. Разработать программу, которая изымает из этого...

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

Множества: Задано множество целых чисел C. Создать два множества, содержащие числа больше 5 и меньше 5.
Задано множество целых чисел C. Создать два множества, содержащие числа больше 5 и меньше 5. ...

Получить из заданного множества новое, в котором отсутствуют числа, кратные 3
ПОРЯДОК ВЫПОЛНЕНИЯ ЛАБОРАТОРНОЙ РАБОТЫ 1. Ввести множество, запись или строку с помощью...

__________________
3
5 / 5 / 3
Регистрация: 24.08.2013
Сообщений: 67
17.03.2014, 22:59 2
Лучший ответ Сообщение было отмечено pervachok как решение

Решение

Вот держи:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
var arr: array[0..224] of integer; //Множество чисел от 1 до 225
    arrDin: array of integer;//Динамический массив (Множество с изменяемым количеством элементов) для итога
    Length: integer;//Длина для динамического массива
 
procedure FillArray();//Заполняем массив целыми числами
begin
var i: byte;
  for i := 0 to 224 do
  begin
  arr[i] := i+1;
  Length:=1;
  SetLength(arrDin,Length);
  writeln(arr[i]);
  end;
end; 
  
procedure DeleteMod3();//Ищем элементы, остаток деления на три которых не равен нолю (делится нацело 
begin
var i: byte;
FillArray();
  for i := 0 to 224 do
    begin
    if (arr[i] mod 3) <> 0 then
    begin
      Inc(Length);
      setlength(arrDin,length);
      arrDin[length-2]:=arr[i];
    end
    else  
    end;  
    for i:= 0 to Length-2 do
      writeln(arrDin[i]);
end;
 
begin
DeleteMod3();
end.
думаю разберешься
1
1 / 1 / 0
Регистрация: 20.09.2013
Сообщений: 61
16.04.2014, 11:26  [ТС] 3
не работает
0
Модератор
63342 / 47051 / 32430
Регистрация: 18.05.2008
Сообщений: 114,049
16.04.2014, 12:05 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
var m,m1: set of 1..255; //Множество чисел от 1 до 225
    n,i,k:byte;
begin
randomize;
repeat
write('Мощность исходного множества от 1 до 255 n=');
readln(n);
until n in [1..255];
m:=[];
for i:=1 to n do
 begin
  repeat
  k:=1+random(255)
  until not (k in m);
  include(m,k);
 end;
writeln('Исходное множество');
m1:=[];
for i:=1 to 255 do
if i in m then
 begin
  write(i:4);
  if i mod 3<>0 then include(m1,i);
 end;
writeln;
writeln('Новое множество');
for i:=1 to 255 do
if i in m1 then write(i:4);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.04.2014, 12:05

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

Пусть задано множество А, напечатать в алфавитном порядке все согласные буквы этого множества, входящих в множество letters=[‘a’..’я’].
Решите Пожалуйста !!!

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

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

Получить новое множество , в котором отсутствует числа ,кратные 3
Задано множество целых чисел от 1 до 255.Получить из этого множества новое множество , в котором...


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

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

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