Нет вася не прав так как в кодировании получилось бы 3 бита
#include <iostream>
using namespace std;
int main()
{
int n,s;
for (int i=100; i<=999; i++)
{
n = i % 10;
s = n*n*n;
n = i / 10 % 10;
s = s+n*n*n;
n = i /100;
s = s+n*n*n;
if (i == s) cout << i << "\n";
}
return 0;
}
Результат:
<span>153
370
371
407</span>
<h3>PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
SeqGen(20, k -> (2 * k + 1) / (4 * k * k * k - 3), 1).Sum.Println
end.
<h2>3.36697051758274 </h2>
Const n=10;
var A : Array [1..10] of integer;
i, mini, maxi, min,max, c,k: integer;
begin
for i := 1 to n do
begin
A[i] := random(10);
write(' ',A[i]);
end;
maxi:=1;
mini:=1;
For i:=1 to n do
begin
min:=A[1];
If A[i]>max then
begin
max:=A[i];
maxi:=i;
end;
If A[i]<min then
begin
min:=A[i];
mini:=i;
end;
c:=A[maxi];
A[maxi]:=A[mini];
A[mini]:=c;
end;
Writeln;
for i:=1 to n do
begin
Write(' ',a[i]);
end;
Writeln;
for i:=1 to n do
begin
If a[i]>4 then
begin
a[i]:=4;
inc(k);
end;
Write(' ',a[i]);
end;
Writeln;
Write('Количество: ',k);
<span>end.</span>