//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandom(14,-99,99); mas.Println;
var a:=mas[1]**3; var b:=mas.Where(t-> t> a).Count;
if b=0 then Writeln('поиск неудачен') else
Writeln('Таких элементов ->',b);
end.
C++:
#include < iostream >
using namespace std;
int a[10];
int main() {
for(int i = 0; i < 10; ++i){
cin >> a[i];
}
for(int i = 0; i < 10; ++i){
if(!(a[i]%2)) a[i] *= 2;
if((i+1)%2) a[i] /= a[0];
}
for(int i = 0; i < 10; ++i){
cout << a[i];
}
return 0;
}
(уберите пробелы до и после iostream)
1)
a нет
b нет
c нет
2)
1<span>строковый тип</span>
<span>2<span>целый тип (INTEGER) </span></span>
<span><span>3<span>вещественный тип</span></span></span>
<span><span><span>3)</span></span></span>
<span><span><span>1- 30 -46</span></span></span>
<span><span><span>2- 30 -46 -0.126 15.003</span></span></span>
<span><span><span>3- 'g'</span></span></span>
<span><span><span>4- <span>‘солнце’ '55' 'g'</span></span></span></span>
<span><span><span>5- 30 -46</span></span></span>
<h3>// PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3>
begin
var x := ReadReal('x=');
var n := ReadInteger('n=');
var (k, p, q, s) := (x * x, 1.0, 1.0, 0.0);
for var i := 1 to n do
begin
p *= k;
q *= 2 * i * (2 * i - 1);
s += p / q
end;
Println('Сумма =', s)
end.
