(Pascal ABC)Вывести ** экран тремя способами(используя операторы цикла FOR, WHILE,...

Question

(Pascal ABC)Вывести на экран тремя способами(используя операторы цикла FOR, WHILE, REPEAT) кубы всех целых чисел из диапазона от A до B (A<=B) в обратном порядке

Comments

Pascal ABC или PascalABC.Net ?

Answer 1

Var
  a, b, i:integer;
Begin
  write('Введите значения a и b: ');
  read(a, b);
  
  writeln('Цикл for');
  for i := b downto a do write(i*i*i, ' ');
  writeln();
  
  writeln('Цикл while');
  i := b;
  while i >= a do
  begin
    write (i*i*i, ' ');
    dec(i);
  end;
  writeln();
  
  writeln('Цикл repeat');
  i:=b;
  repeat
    write(i*i*i, ' ');
    dec(i)
  until i < a
  writeln();

End.

Comments

Можете яснее написать?

---

Куда уж яснее?

---

Да мне-то все понятно, но я это детям буду давать в качестве примера. Тут нету например привычного сообщения ('Введите значения'). мне некогда было делать, за этим и обратился сюда. Все равно доделывать...