Кубы чисел от A до B

Задача

Вывести на экран кубы чисел от A до B, которые вводит пользователь.

Решение

Для решения задачи используется цикл for.

Программа на языке Паскаль:

var
	a, b: integer;
begin
	write('A: '); readln(a);
	write('B: '); readln(b);
	if a < b then
		for a := a to b do 
			writeln (a * a * a);
readln;
end.

Пользователь может ввести значения так, что a будет больше b. В таком случае цикл for не выполнится.
Действительно, if здесь лишнее. Оно имеет смысл только в случае, когда обрабатывается ситуация, где значение b меньше, чем a:

var
    a,b:integer;
 
begin
    write('A: '); readln(a);
    write('B: '); readln(b);
    if a < b then
        for a:=a to b do
            writeln(a*a*a)
    else
        for a:=a downto b do
            writeln(a*a*a);
 
end.

Варианты решения с циклом while:

var
    a, b, c, i : integer;
begin
    write('a: '); 
    readln(a);
    write('b: '); 
    readln(b);
    if a > b then {если a больше b - меняем местами}
    begin
        c := a;
        a := b;
        b := c;  
    end;
    i := a;
    while (i <= b) do
    begin
        writeln(i * i * i);
        i := i + 1;
    end;       
end.
var
    a,b:integer;
 begin
    write('A: '); readln(a);
    write('B: '); readln(b);
    if a < b then
        while a<=b do begin
            writeln(a*a*a);
            inc(a)
        end;
    else
        while b<=a do begin
            writeln(b*b*b);
            inc(b)
        end;
end.

Тема

Циклы

Уровень

Простые задачи