Такое число для 3 разрядных чисел одно, это 512
Sub amstrong()
ctroka = 2
For i = 100 To 999
N1 = i \ 100
N2 = (i - 100 * N1) \ 10
N3 = i - 100 * N1 - 10 * N2
If (N1 + N2 + N3) ^ 3 = i Then
Cells(ctroka, 2) = i
ctroka = ctroka + 1
End If
Next i
<span>End Sub</span>
4610,десяточка маленькая снизу =1011102 двоечка маленькая снизу
Под определение "организация" здесь подходит только 2 и 4. Но 2 занимается веб-дизайном, тогда ответ - 4.
var
m:array [1..10000] of integer;
a,n,i,j:integer;
begin
writeln('Введите n:');
readln(n);
j:=0;
writeln('Введите последовательность чисел:');
for i:=1 to n do
begin
readln(a);
if (a mod 2)<>0 then begin j:=j+1; m[j]:=a; end;
end;
if j=0 then writeln ('Нечетных чисел нет в данной последовательности.')
else
begin
writeln ('Нечетные числа в данной последовательности:');
for i:=1 to j do
write(m[i],' ');
writeln;
end;
end
Begin
if n > 1 then
decTo5(n div 5);
write(n mod 5);
end;
var
n: integer;
begin
write('n = ');
readLn(n);
if (n > 0) then
decTo5(n)
else
writeLn('Error, n must > 0!');
writeLn;
end<span>.
Извини меня если не правильно. Вроде так.
</span>