Разработайте СКИ для перехода улицы

на каком языке нужна программа?   пример на paskal:   program zadacha;   var massiv: array [1..15] of integer; i: byte; massiv2: array [1..15] of real;   begin  randomize;   write('isxodnij massiv: ');   for i: =1 to 15 do  begin  massiv: =random(41)-20;   write(massiv,' ');   end;   writeln;   writeln('massiv posle preobrazovanij: ');   for i: =1 to 15 do  begin  if massiv=0 then massiv2: =massiv  else  if massiv mod 5 = 0 then massiv2: =massiv*2  else begin  massiv2: =massiv;   massiv2: =massiv2/2;   end;   write(massiv2: 0: 1,' ');   end;   readln;   end.

отмечено как нарушение через stoker ( w: 0% t: 4 )

ошибка в том что натуральный логарифм (-1) не существует

program summa; uses crt; var n,i: integer; s: real;

p1,p2: integer; begin clrscr; writeln ('vvedite n'); readln (n); s: =0;

p1: =-1;

p2: =2; for i: =1 to n do

begins: =s+p1/p2;

p1: =-p1;

p2: =p2*2;

end; writeln ('s=', s); readln; end.

введем обозначения:

s-i - высказывание: ученик s (где s - первая буква фамилии) убирал i-й класс.

p: (q-i, r-i),  - ученик p высказал q-i и r-i

s-i = f - высказывание s-i - ложно, а s-i = t высказывание s-i - истинно.

тогда, по условию :

1) a: (a-9, c-7)

2) k: (к-9, а-8)

3) с: (с-8, к-10),

где в каждой паре (q-i, r-i) только одно из высказываний является верным (*).

предположим в начале, что а-9 = t. тогда из 2) и (*) следует, что (k-9 = f, а-8 = f) - противоречие, т.к. одно из высказываний в паре должно быть верным. следовательно, предположение а-9 = t - не верно, и а-9 = f.

пусть a-9 = f. тогда из 1) и *) следует, что c-7 = t. из 3) и *) следует, что c-8 = f. откуда получим из 3), что к-10 = t. значит, согласно 2) (к-9 = f, а-8 = t)

итак, c-7 = t, к-10 = t и а-8 = t следовательно, савельев убирал 7-й класс, костин - 10-й, андреев - 8-й класс. давыдов, следовательно, убирал оставшийся, 9-й класс (т.е. д-9 = т).