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

@Катя · Регистрация: 16.04.2012

Студворк — интернет-сервис помощи студентам

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

@HanDi · 16.04.2012, 16:43

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

@Катя · 16.04.2012, 16:48 **[ТС]**

Ну там же написано что она не работает, у меня тоже не работает(( Мне надо в Turbo Delphi 2006, библиотека там только SysUtils!!!!

@HanDi · 16.04.2012, 16:51

Ну так и сделай сам или по исходнику.

@Катя · 16.04.2012, 16:53 **[ТС]**

Я не понимаю(( и я она!!!

@Mawrat · 16.04.2012, 17:12

Катя, можно взять тот код, на который дана ссылка, но там немного подправить:

Delphi

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-ём.

@Катя · 16.04.2012, 17:38 **[ТС]**

Спасибо, но не работает(( нам дана всего одна билиотека SysUtils, а так как остальных нету, выдаёт ошибки в каждой строчке((

WoodHead · 16.04.2012, 19:46

Как я понял, нужно сделать программу в консоли, т.к. используется только SysUtils.

Delphi

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.

@Катя · 16.04.2012, 20:27 **[ТС]**

Спасибо большое при большое))))

WoodHead · 16.04.2012, 20:29

Не за что, Катя. Учитесь на пятерки. :-)

WoodHead 105 / 104 / 29 Регистрация: 15.01.2011 Сообщений: 496
	16.04.2012, 20:29	10
	Не за что, Катя. Учитесь на пятерки. :-) 1

@Катя 0 / 0 / 0 Регистрация: 16.04.2012 Сообщений: 12
		1
	Из множества целых чисел от 1 до 30 выделить два множества 16.04.2012, 16:33. Показов 3047. Ответов 9 Метки нет (Все метки) Помогите пожалуйста)) Из множества целых чисел от 1 до 30 выделить два множества: чисел, кратных 2 и чисел, кратных 3. 0

@HanDi 898 / 345 / 65 Регистрация: 11.02.2012 Сообщений: 1,502
	16.04.2012, 16:43	2
	Из множества целых чисел от 1 до 30 выделить два множества: чисел, кратных 2 и чисел, кратных 3 0

@Катя 0 / 0 / 0 Регистрация: 16.04.2012 Сообщений: 12
	16.04.2012, 16:48 [ТС]	3
	Ну там же написано что она не работает, у меня тоже не работает(( Мне надо в Turbo Delphi 2006, библиотека там только SysUtils!!!! 0

@HanDi 898 / 345 / 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

@Катя 0 / 0 / 0 Регистрация: 16.04.2012 Сообщений: 12
	16.04.2012, 17:38 [ТС]	7
	Спасибо, но не работает(( нам дана всего одна билиотека SysUtils, а так как остальных нету, выдаёт ошибки в каждой строчке(( 0

@Катя 0 / 0 / 0 Регистрация: 16.04.2012 Сообщений: 12
	16.04.2012, 20:27 [ТС]	9
	Спасибо большое при большое)))) 0

Опции темы