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

nafani1 nafani1    3   16.05.2021 13:48    0

Ответы
ност1 ност1  16.05.2021 13:50

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

ПОКАЗАТЬ ОТВЕТЫ
нази17 нази17  16.05.2021 13:50

я знал ответ но жаль что поздно :(

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика