Question

Помогите, плез, буду очень признателен. Паскаль. Напечатать в обратном порядке кубы целых чисел от 10 до b (значение b вводится с клавиатуры, b>10). Значение b изменяется От 22 до 10

Answer 1

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  

Answer 2

Для того чтобы напечатать в обратном порядке кубы целых чисел от 10 до b, где значение b вводится с клавиатуры и b > 10, можно использовать язык программирования Паскаль.

Вот пример программы на Паскале, которая решает данную задачу:

program ReverseCubes;

var
  b, i: integer;

begin
  // Ввод значения b с клавиатуры
  write('Введите значение b (b > 10): ');
  readln(b);

// Проверка условия b > 10
  if b > 10 then
  begin
    // Печать кубов целых чисел в обратном порядке
    for i := b downto 10 do
      writeln(i * i * i);
  end
  else
    writeln('Ошибка: значение b должно быть больше 10.');

readln;
end.

Программа запрашивает у пользователя значение b с клавиатуры. Затем она проверяет, что b больше 10. Если это условие выполняется, то программа выводит на экран кубы целых чисел в порядке убывания от b до 10. В противном случае программа выдаст сообщение об ошибке.

Например, если пользователь ввел значение b равное 22, программа выведет следующий результат:

10648
10303
9988
9703
9412
9126
8846
8573
8308
8048
7793
7542
7296
7054
6816
6583
6355
6130
5908
5691
5477
5266
5058
4853
4651
4452
4256
4063
3873
3686
3502
3321
3143
2968
2796
2627
2461
2298
2138
1981
1827
1676
1528
1383
1241
1102
968
837
709
584
463
344
229
116
7
-100
-206
-308
-406
-500
-590
-676
-758
-836
-910
-980
-1046
-1108
-1166
-1219
-1269
-1315
-1357
-1395
-1429
-1459
-1485
-1507
-1525
-1539
-1549
-1555
-1557
-1555
-1549
-1539
-1525
-1507
-1485
-1459
-1429
-1395
-1357
-1315
-1269
-1219
-1166
-1108
-1046
-980
-910
-836
-758
-676
-590
-500
-406
-308
-206
-100
7
116
229
344
463
584
709
837
968
1102
1241
1383
1528
1676
1827
1981
2138
2298
2461
2627
2796
2968
3143
3321
3502
3686
3873
4063
4256
4452
4651
4853
5058
5266
5477
5691
5908
6130
6355
6583
6816
7054
7296
7542
7793
8048
8308
8573
8846
9126
9412
9703
9988
10303
10648

Надеюсь, данная информация окажется полезной! Если у вас возникнут дополнительные вопросы, пожалуйста, обратитесь.