Question

вывести на экран кубы чисел a и b, числа вводит пользователь. НЕ ПАСКАЛЬ НУЖЕН ПИТОН
ПОЖАЛУЙСТА ДАЮ 100 БАЛЛОВ​

Answer 1

Ответ:

решения задачи используется цикл 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.