Помогите, плез, буду очень признателен. Паскаль. Напечатать в обратном порядке кубы...

0 голосов
90 просмотров

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


Информатика (28 баллов) | 90 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

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  

(194k баллов)