На языке паскаль составить программу нахождения кубов чисел от 1 до 25 используя арифметическую операцию sqr (x)-x2 (во второй степени)

var

a: integer;

begin

read(a);

a: =sqr(a)*a;

write(a);

end.

 

 

 

 

 

 

 

 

 

 

 

 

javascript: var массив = [], макс_зн, макс_ном, мин_зн, мин_ном; for (let сч = 0; сч < 10; сч++) массив.push((function (от, до) { return math.round(от - 0.5 + math.random() * (до - от + 1)); }, 10)); массив.foreach(function (зн, ном) { if (ном == 0) { макс_зн = зн; макс_ном = 0; мин_зн = зн; мин_ном = 0; } else { if (зн > макс_зн) { макс_зн = зн; макс_ном = ном; } else if (зн < мин_зн) { мин_зн = зн; мин_ном = ном; } } }); alert(макс_зн + " (" + макс_ном + "); " + мин_зн + " (" + мин_ном + ")");

#include < iostream> using namespace std; int main() { setlocale(lc_all, "russian"); // язык int i = 0; //кол-во элкментов int n0; //первый член int n[1000]; //массив int input; //ввод while(cin > > input & & input ! = 0) //заполнение массива { i++; if(i == 1) { n0 = input; }else { n[i] = input; } } //вывод cout < < endl < < n[i] < < " "; for(int p = 2; p < i; p = p + 1){ cout < < n[p] < < " "; } cout < < n0 < < " "; return 0; }