решения задачи используется цикл 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:
a,b:integer;
for a:=a to b do
writeln(a*a*a)
else
for a:=a downto b do
writeln(a*a*a);
я знал ответ но жаль что поздно :(
решения задачи используется цикл 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.
я знал ответ но жаль что поздно :(