Var
m: integer;
begin
for m:=10 downto 5 do
writeln (m*m*m) ;
readln;
end.
Поделитесь своими знаниями, ответьте на вопрос:
Заполни пропуски в программе. Вывод на экран кубов чисел от 10 до 5. var ...:integer; begin for n:=... downto...do writeln (n*n*n); readln; end.
var
n:integer;
begin
for n:=10 downto 5 do
writeln (n*n*n);
readln;
end.