Ввести натуральное число N вывести квадраты и кубы всех чисел от 1 до N. Желательно в КуМире или на любом другом алгоритмическом языке.
Answers & Comments
treyser98
Паскаль. var x,n: integer;beginwrite('n = ');readln(n);x := 1;while sqr(x) < n do beginwrite(sqr(x),' ');x := x + 1end; readlnend. кумир вроде как тотак. заготовь мне переменные А, И: целые будут; начинай пишистроку ("Введите натуральное число: "); читай (А) ; в цикле по И от 1 до А начинай пишистроку (И, ":"); пишистроку (И*И, " ",И*И*И) ; пишистроку; кончай; читай; кончай!
Answers & Comments
var x,n: integer;beginwrite('n = ');readln(n);x := 1;while sqr(x) < n do beginwrite(sqr(x),' ');x := x + 1end; readlnend.
кумир вроде как тотак.
заготовь мне переменные
А, И: целые будут;
начинай
пишистроку ("Введите натуральное число: ");
читай (А) ;
в цикле по И от 1 до А начинай
пишистроку (И, ":");
пишистроку (И*И, " ",И*И*И) ;
пишистроку;
кончай;
читай;
кончай!