Delphi. Цикл While. Вывести целые числа от А до В, А вывести 1 раз, число А+1 вывести 2 раза и т.д.

[schibeki]

Всем привет. я "сделал" задачу с условием Даны целые числа A и B (A<B). Вывести все целые числа от А до В включительно; при этом А должно выводиться 1 раз, число А+1 должно выводиться 2 раза и т.д. но сделал на for,а нужно while. Помогите,пожалуйста, переделать. Вот код

 begin
a:=StrToInt(Edit1.Text); // Считывается значение X
b:=StrToInt(Edit2.Text);
// Вычисляем арифметическое выражение
N:=B-A;
for i:=0 to N do Memo1.Lines.Add(' '+IntToStr(A+i));
 Memo1.Lines.Add('Количество чисел= '+IntToStr(N+1));
end;

Заранее благодарен...

[Vanta11a]

Хрень какая-то у Вас написана. Сделан только ввод А и В, потом вывод всех чисел от А до В. Никаких

А должно выводиться 1 раз, число А+1 должно выводиться 2 раза и т.д.

нет. Следовательно, не сделано. Что сделано по циклу while?

[Stilet]

 
var s:string;
begin
a:=StrToInt(Edit1.Text); // Считывается значение X
b:=StrToInt(Edit2.Text);
// Вычисляем арифметическое выражение
N:=B-A;
i:=0;
while i<=N do begin
 b:=i+1; while b>0 do begin s:=s+' '+IntToStr(A+i); dec(b);end;
 Memo1.Lines.Add(s);
 inc(i);
end;

Подходит?

[Serge_Bliznykov]

я не проверял, но я бы переменную s в цикле обнулял!

[Stilet]

А! Кстати да. Это я не учел.