Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.