Помогите, плез, буду очень признателен.
Паскаль.
Напечатать в обратном порядке кубы целых чисел от 10 до b (значение b вводится с клавиатуры, b>10).
Значение b изменяется
От 22 до 10
Var b,i:integer;
begin
write(b (>10) = ); readln(b);
for i:=b downto 10 do write(i*i*i, );
writeln;
end.
Пример:
b (>10) = 22
10648 9261 8000 6859 5832 4913 4096 3375 2744 2197 1728 1331 1000
Оцени ответ
