Составить алгоритм и программу вывода на экран кубов всех целых чисел от -5 до 12.Помогите кто нибудь.
Var i,q:integer;
begin
for i:=-5 to 12 do begin
q:=i*i*i;
writeln(q);
end
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Var i,q:integer;
begin
for i:=-5 to 12 do begin
q:=i*i*i;
writeln(q);
end
end.