INSERT INTO T2 (Id, Data2, Ciffri2) SELECT Id, SUM (Cifri), Data FROM T1 GROUP BY Data
;
Var n,a:integer;
x,st:real;
begin
write('введите степень n ==> ');
readln(n);
write('введите вещественное число x ==> ');
<span>readln(x);
st:=x;
</span>for a:=1 to n-1 do begin
st:=x*st;
end;
writeln('степень ',n,' числа ',x,' = ',st);
end.
<SCRIPT>
var a = prompt('1. a = ','');
alert ('V = '+a*a*a+' S = '+6*a*a);
z = -1; s=0;
for (i=1; i<=10; i++){z=-z; s=s+z*i};
alert ('s=1-2+3+...+(-1)^9*10 = '+s);
var s = prompt('3. s = ','');
k=0;
for (i=0; i<s.length;i++)
if (s[i]=='к') k++
alert ('k = '+k);
</SCRIPT>
Пример показан в прилагаемом файле.
Ответ: только сильным покоряются моря
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var b:=ReadArrInteger('Введите 7 чисел',7);
Writeln('|min|=',abs(b.Min),', sqrt(max)=',sqrt(b.Max));
var d:=ArrRandom(6,-1,50); d.Println;
Writeln('Произведение: ',d.Except(Arr(d.Min,d.Max))
.Aggregate(integer(1),(p,i)->p*i))
end.
<u><em>Тестовое решение</em></u>
Введите 7 чисел 35 -10 18 0 16 8 13
|min|=10, sqrt(max)=5.91607978309962
29 11 38 49 45 19
Произведение: 942210