Question

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

Answer 1

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