Вопрос вполне по предмету: моделирование экономических процессов делается как раз с помощью языков программирования.
А вот если препод вымогает деньги - то можешь пожаловаться.
Использовать Робот
алг
нач
нц пока не справа свободно
закрасить
вниз
кц
нц пока справа свободно
вниз
кц
нц пока не справа свободно и снизу свободно
закрасить
вниз
кц
нц пока не снизу свободно
закрасить
влево
кц
нц пока снизу свободно
влево
кц
нц пока не снизу свободно и слева свободно
закрасить
влево
кц
кон
<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>
Type Massiv=array[1..100] of integer;
var
a,b:Massiv;
n,i,j,p:integer;
begin
randomize;
write('Ввод n=');
readln(n);
writeln('Нужно неубывание (1) или невозрастание (2)?');
readln(p);
if p=2 then p:=-1;
writeln('Массив:');
a[1]:=random(20)-5;
for i:=2 to n do a[i]:=a[i-1]+p*random(5);
write('(');
for i:=1 to n do write(a[i],' ');
write(')');
writeln;
i:=1; j:=0;
while i<n do
begin
if a[i]=a[i+1] then begin inc(j); b[j]:=a[i]; end;
while (i<n)and(a[i]=a[i+1]) do inc(i);
inc(i);
end;
writeln('Новый массив:');
for i:=1 to j do write(b[i]:4);
readkey
End.
Пример:
Ввод n=20
Нужно неубывание (1) или невозрастание (2)?
1
Массив:
(11 12 12 12 16 16 17 21 25 25 26 30 30 32 36 36 38 42 45 47 )
Новый массив:
12 16 25 30 36