Зависит от того, в чем работаете(Паскаль, С). Как самый просто вариант в паскале("в лоб"): uses crt var i:integer; begin i:=1; {присваиваем 1} repeat writeln(); {пустая строка} write(i); {пишем само число i} write(' '); {ставим пробел} write(exp(2*ln(i)):2:0); {считаем квадрат числа i} write(' '); {пробел} write(exp(3*ln(i)):2:0); {считаем куб числа i} i:=i+1; {новое значение i} until i>10; {условие окончания i>10} readkey; {закрытие по нажатию программы} end.
uses crt
var i:integer;
begin
i:=1; {присваиваем 1}
repeat
writeln(); {пустая строка}
write(i); {пишем само число i}
write(' '); {ставим пробел}
write(exp(2*ln(i)):2:0); {считаем квадрат числа i}
write(' '); {пробел}
write(exp(3*ln(i)):2:0); {считаем куб числа i}
i:=i+1; {новое значение i}
until i>10; {условие окончания i>10}
readkey; {закрытие по нажатию программы}
end.