Ввести натуральное число N вывести квадраты и кубы всех чисел от 1 до N.
Желательно в КуМире или на любом другом алгоритмическом языке.

паскаль.var x,n: integer; begin write('n = '); readln(n); x := 1; while sqr(x) < n do begin write(sqr(x),' '); x := x + 1 end;   readln end.кумир вроде как тотак.заготовь мне переменныеА, И: целые будут;начинайпишистроку ("Введите натуральное число: ");читай (А) ;в цикле по И от 1 до А начинайпишистроку (И, ":");пишистроку (И*И, " ",И*И*И) ;пишистроку;кончай;читай;кончай!