===== PascalABC.NET =====
begin
ReadInteger.ToString.Select(c -> c.ToDigit ** 3).Sum.Println
end.
<em>1)</em>
#include <stdio.h>
#include <stdlib.h>
int sover (int n)
{<span>
int sum = 0;</span><span>
for (int i = 1; i<=n/2; i++)</span><span>
if (n%i==0)</span><span> sum+=i;</span><span>
if (sum==n)</span><span>
return 1;</span><span>
else return 0;
</span>}
int main()
{<span>
int n;</span><span>
printf ("N = ");</span><span>
scanf ("%d",&n);</span><span>
if (sover(n)==1)</span><span>
printf ("Sovershennoe");</span><span>
else printf ("Ne sovershennoe");</span><span>
printf("\n");</span><span>
system ("PAUSE");</span><span>
return 0;
</span><span>}
<em>2)</em>
#include <stdio.h>
#include <stdlib.h>
int main()
{
for (int i = 1; i<=5; i++)
{
for (int j = 1; j<=5-i+1; j++)
printf ("%d ",5+i-1);
printf ("\n");
}
system ("PAUSE");
return 0;
}</span>
<span>Пример реализации на Excel:</span>
=IF(C6=1;D6*C$2;IF(C6=2;D6*D$2;D6*E$2))
<span>Формулы защищены без пароля, чтобы случайно не внести
погрешности.</span>
<span>В них используется технология создания изображений из маленьких фрагментов (пуантилизм — мазки различной формы и цвета, мозаика — разноцветные стеклышки или камушки, изображение на экране монитора — пиксели)</span>