Ввести натуральное число 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 до А начинай
пишистроку (И, ":");
пишистроку (И*И, " ",И*И*И) ;
пишистроку;
кончай;
читай;
кончай!