Var
A,i:integer;
N:real;
Begin
WriteLn('Введите число');
ReadLn(N);
For A:= 100 to 999 do
if (A div 100)+((A div 10) mod 10)+(A mod 10)<=N then
Write(A,' ')
End.
Uses crt;
var e:array[1..3,1..7] of integer;
s,max,n,m:integer;
index,sum:integer;
<span>procedure max_el;</span>
begin
max:=e[1,1];
sum:=0;
index:=0;
for n:=1 to 3 do
begin
for m:=1 to 7 do
begin
if e[n,m]>max then
begin
max:=e[n,m];
index:=m;
end;
end;
end;
for n:=1 to 3 do
begin
if e[n,index]<0 then
begin
sum:=sum+e[n,index];
end;
end;
writeln('naibolwiy element = ',max,' summa otricatelnyh= ',sum);
end;
begin
clrscr;
writeln('elementy massiva');
writeln;
randomize;
for n:=1 to 3 do
begin
for m:=1 to 7 do
begin
e[n,m]:=random(100) -50;
write('',e[n,m],' ');
end;
writeln;
end;
writeln;
writeln;
max_el;
readkey;
end<span>.</span>
# Код на ruby 2.2.3p173
a = []
a << [1]
for i in 2..10001
f = 0
a.each{ |group|
m = 1
group.each { |c|
m *= i % c
}
f += m
if m > 0
group << i
break
end
}
a << [i] if f == 0
end
p a
p a.size
29₁₀ = X₂
29 / 2 =14 / 2 = 7 / 2 = 3 / 2 =1 / 2
1 0 1 1 1
11101₂=29₁₀
21₁₀ = X₈
21 / 8 = 2 / 8
5 2
25₈ = 21₁₀
101111₂ =X₁₀
₅ ₄ ₃ ₂ ₁ ₀
1 0 1 1 1 1₂ = 2^5 + 2^3 + 2^2 +2+1=32+8+4+2+1=47₁₀