[frostikit]

Обеспечить вывод в компонент TMemo всех целых чисел, попадающих в интервал от n1 до n2 и которые являются удвоенными нечетными числами. Подсчитать количество этих чисел.

Не подскажете как это осуществить?

[eXplorer]

Обеспечить вывод в компонент TMemo всех целых чисел, попадающих в интервал от n1 до n2

Код:

var
n1,n2,i:integer;
begin
n2:=89; //n2
i:=0; //счётчик чисел
for n1:=2 to n2 do begin //цикл
memo1.Text:=memo1.Text+inttostr(n1); //вывод в мэмо
i:=i+1;
end;
showmessage(inttostr(i));
end;

[eXplorer]

что бы вывести все чётные или нечётные
добавишь условие отбора:
например все чётные

Код:

if i2 mod 2=0 then begin

[Konrad]

Сообщение от eXplorer

что бы вывести все чётные или нечётные
добавишь условие отбора:
например все чётные

Код:

if i2 mod 2=0 then begin

"if" в цикле да еще и "мод" туда же?

Если N1-четное (нечетное), то N2=N1+2 будет четным(нечетным).

Соответственно, находим первое четное(нечетное) число диапазона, и добавляем ему 2, пока не дойдем до конца диапазона .

[eXplorer]

ну да))) извените так проще как написал Konrad

[Konrad]

Где-то так:

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
n1,n2,p:integer;
begin
  memo1.lines.clear;
  n1:=strtoint(edit1.Text);
  n2:=strtoint(edit2.Text);
  if n1>n2 then showmessage('n1>n2')
    else
    begin
      if (n1 mod 2) =0 then p:=n1 else p:=n1+1;
      memo1.lines.add('#0'+' = '+inttostr(p));
      n2:=(n2-p)div 2;
      for n1:=1 to n2 do
      begin
        p:=p+2;
        memo1.lines.add('#'+inttostr(n1)+' = '+inttostr(p));
      end;
      memo1.lines.add('# результат sum = '+inttostr(n1)+';');
    end;
end; 


Если что не так, просто вечер, думать не хочется

300-е сообщение