$mysiqli->query("INSERT INTO... mysiqli--->mysqli
1) Pascal:var a,b,u,S:integer;
<span>begin //ВВедите стороны параллелограмма "ab" и угол Альфа
</span><span>readln(a,b,u);
</span><span>S:=a*b*Sin(u);
</span><span>writeln("Площадь параллелограмма равна: ",S);
</span><span>readln;
</span><span>end.</span>
2)117 в двоичной = 1110101 (см. приложение)
var s,i,n,a:integer;
BEGIN
read(a,n);
s:=1;
for i := 1 to n do
s:=s*a;
writeln('a в степени n = ',s);
s:=1;
for i := 1 to n do
s:=s*i;
writeln(s);
s:=0;
for i:= 1 to n do
begin
read(a);
s:= s + a;
end;
writeln('среднее арифметическое = ',s/n)
END.
<h3>PascalABC.NET 3.4.2, сборка 1811 от 01.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var p:=SeqRandomReal(ReadInteger('n='),-99,99)
.Select(t->Round(t,2)).ToArray;
p.Println;
Println('Сумма положительных',p.Where(r->r>0).Sum);
Println('Сумма отрицательных',p.Where(r->r<0).Sum)
end.
Дана последовательность целых чисел 0,9,1,8,2,7,3,6,4,5,90,...следующее числа-двухзначное.укажите его
Kochcurov
18, 27, 36, 45 - сумма двух чисел была 9, у двузначных тоже. Может такая логика?