Преобразовать код

NikSchibeki

Всем привет. я "сделал" задачу с условием Даны целые числа A и B (A
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;
Заранее благодарен...
5 ответов

NikSchibeki

I:=0;
While I<=N Do Begin
Memo1.Lines.Add(' '+IntToStr(A+i));
I:=I+1;
End;


NikSchibeki

Вывести все целые числа от А до В включительно;при этом А должно выводиться 1 раз, число А+1 должно выводиться 2 раза и т.д.
говорит о том, что должно быть два цикла, один для увеличения А, другой для вывода А столько раз, на сколько было сделано увеличение
консоль
var
  i, k: integer;
  a, n: integer;
begin
  readln(a);
  readln(n);
 
  i := 0;
 
  while a <= n do
  begin
    k := 0;
    while k <= i do
    begin
      writeln(a);
      inc(k);
    end;
 
    inc(i);
    inc(a);
  end;
 
  readln;


NikSchibeki

Т.К. в вопросе было помочь переделать цикл то код на правильность я вообще не проверял. Как оказалось - зря.


NikSchibeki

Всем спасибо