Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
Катя
0 / 0 / 0
Регистрация: 16.04.2012
Сообщений: 12
1

Из множества целых чисел от 1 до 30 выделить два множества

16.04.2012, 16:33. Просмотров 1049. Ответов 9
Метки нет (Все метки)

Помогите пожалуйста))
Из множества целых чисел от 1 до 30 выделить два множества: чисел, кратных 2 и чисел, кратных 3.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.04.2012, 16:33
Ответы с готовыми решениями:

Из множества целых чисел от 1 до 30 выделить два множества: чисел, кратных 2 и чисел, кратных 3
Из множества целых чисел от 1 до 30 выделить два множества: чисел, кратных 2 и...

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

Даны два множества точек на плоскости
{Даны два множества точек на плоскости. Из первого множества выбрать три...

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

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

9
Катя
0 / 0 / 0
Регистрация: 16.04.2012
Сообщений: 12
16.04.2012, 16:48  [ТС] 3
Ну там же написано что она не работает, у меня тоже не работает(( Мне надо в Turbo Delphi 2006, библиотека там только SysUtils!!!!
0
HanDi
892 / 339 / 65
Регистрация: 11.02.2012
Сообщений: 1,502
16.04.2012, 16:51 4
Ну так и сделай сам или по исходнику.
0
Катя
0 / 0 / 0
Регистрация: 16.04.2012
Сообщений: 12
16.04.2012, 16:53  [ТС] 5
Я не понимаю(( и я она!!!
0
Mawrat
12830 / 5738 / 1700
Регистрация: 19.09.2009
Сообщений: 8,807
16.04.2012, 17:12 6
Катя, можно взять тот код, на который дана ссылка, но там немного подправить:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Byte;
begin
  LabeledEdit2.Text := '';
  LabeledEdit3.Text := '';
  for i:=1 to n do begin
    if i mod 2 = 0 then
      LabeledEdit2.Text:=LabeledEdit2.Text + IntToStr(i) + ' ';
    if i mod 3 = 0 then
      LabeledEdit3.Text:=LabeledEdit3.Text + IntToStr(i) + ' ';
  end;
end;
Потому что есть числа, которые одновременно кратны и 2-ум и 3-ём.
0
Катя
0 / 0 / 0
Регистрация: 16.04.2012
Сообщений: 12
16.04.2012, 17:38  [ТС] 7
Спасибо, но не работает(( нам дана всего одна билиотека SysUtils, а так как остальных нету, выдаёт ошибки в каждой строчке((
0
WoodHead
102 / 101 / 29
Регистрация: 15.01.2011
Сообщений: 476
16.04.2012, 19:46 8
Как я понял, нужно сделать программу в консоли, т.к. используется только SysUtils.
Delphi
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
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var
  i: integer;
  Multiple_2, Multiple_3: string;
begin
 
  Multiple_2:='';
  Multiple_3:='';
  for i:=1 to 30 do
  begin
    if i mod 2=0 then
      Multiple_2:=Multiple_2+' '+IntToStr(i);
    if i mod 3=0 then
      Multiple_3:=Multiple_3+' '+IntToStr(i);
  end;
  WriteLn(Multiple_2);
  WriteLn(Multiple_3);
  ReadLn;
 
end.
1
Катя
0 / 0 / 0
Регистрация: 16.04.2012
Сообщений: 12
16.04.2012, 20:27  [ТС] 9
Спасибо большое при большое))))
0
WoodHead
102 / 101 / 29
Регистрация: 15.01.2011
Сообщений: 476
16.04.2012, 20:29 10
Не за что, Катя. Учитесь на пятерки. :-)
1
16.04.2012, 20:29
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.04.2012, 20:29

Сформировать множество целых чисел и выделить из него подмножество чисел, кратных 7
Сформировать множество целых чисел и выделить из него подмножество чисел,...

Сформировать множество целых чисел и выделить из него подмножество чисел, кратных 7
Сформировать множество целых чисел и выделить из него подмножество чисел,...

Массив: Сформировать множество целых чисел и выделить из него подмножество чисел, кратных 7
вот никак не получается Сформировать множество целых чисел и выделить из него...


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

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

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