решения задачи используется цикл 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);
Приведём все степени к основанию 2
2^3702-2^468+2^1620-108
-108 можно представить как -128 + 16 + 4
2^3702-2^468+2^1620-2^7 + 2^4 + 2^2
Теперь выстраиваем степени в порядке убывания:
2^3702+2^1620-2^468-2^7 + 2^4 + 2^2
В выражении два вычитания подряд, избавимся от этого, заменив -2^468 на -2^469 + 2^468
2^3702+2^1620 -2^469+2^468-2^7 + 2^4 + 2^2
2^3702 - 1 единица
2^4 - 1 единица
2^2 - 1 единица
Количество единиц в вычитаниях будет равно разнице степеней. Например 1000000-100=1111
2^1620 -2^469 - количеств единиц 1620-469 = 1151
2^468-2^7 - количество единиц 468-7 = 461
Общее количество единиц равно 3+1151+461 = 1615
решения задачи используется цикл 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.