Задача про близнецов - Помощь студентам

stscolt · 21.04.2008, 22:22

Близнецами называются два числа, отличные на 2. Вводится число М. Надо вывести все пары близнецов, не превышающих М

дмидми · 21.04.2008, 22:25

Так-таки все? Всю бесконечность?

Gauss · 21.04.2008, 22:52

Код:

begin
 i:=0; 
  While(abs(i)<M) do  {i :integer, M -введенное число}
 begin
   i:=i+2;
   memo1.Lines.Insert(i-2,inttostr(i));
 end;
end.

насколько я понял приблизительно так

21.04.2008, 22:22	#1
stscolt Пользователь Регистрация: 21.04.2008 Сообщений: 50	Задача про близнецов Близнецами называются два числа, отличные на 2. Вводится число М. Надо вывести все пары близнецов, не превышающих М

21.04.2008, 22:52	#3
Gauss Форумчанин Регистрация: 26.11.2007 Сообщений: 235	Код: `begin i:=0; While(abs(i)<M) do {i :integer, M -введенное число} begin i:=i+2; memo1.Lines.Insert(i-2,inttostr(i)); end; end.` насколько я понял приблизительно так Последний раз редактировалось Gauss; 21.04.2008 в 23:08.

21.04.2008, 22:25	#2
дмидми Форумчанин Регистрация: 06.03.2008 Сообщений: 352	Так-таки все? Всю бесконечность?