Написать программу вычисляющую таблицу кубов чисел от -10 до 10
Написать программу вычисляющую таблицу кубов чисел от -10 до 10
Гость
Ответ(ы) на вопрос:
Гость Var a, b: integer;
begin
a:=-10;
b:=10;
if a < b then
for a := a to b do
writeln (a * a * a);
readln;
end.
Не нашли ответ?
Похожие вопросы