Между населенными пунктами A, B,C, D,E построены дороги ,протяженность которых приведена в таблице. Определите длину кратчайшего пути между пунктами A и E ,проходящего через пункт C. Передвигатся можно только по дороге, протяженность которых указана в таблице

n = 21 (результат измерений от 10 до 30)

n = 2^i

2^i = 21

i = 5 бит

27 * 5 = 135 бит

ответ. 135 бит

30 * 70 = 2100 символов на 1 странице

5 * 2100 = 10500 символов на 5 страницах

при кодировке ascii - 1 символ = 1 байт, значит 20500 байт оперативной памяти займет этот текст.

var

a: [1..100] array of integer;

i,n,p: integer;

begin

readln(n);

for i: =1 to n do

begin

readln(a[i]);

p: =2;

while (p*p< =a[i]) do

begin

if p*p=a[i] then writeln (a[i],' полный квадрат')

p: =p+1;

end;

end;

end.

var a: array[1..50] of integer; i,f, n: integer;

begin write('n='); readln(n); for i : = 1 to n do begin write('a', i, '='); readln(a[i]); end; f : = 0; writeln; for i : = 1 to n - 1 do if (a[i] mod 2 < > 0) and (a[i + 1] mod 2 = 0) then f : = 1; if f = 0 then begin for i : = 1 to n do if a[i] < 0 then write(a[i]: 4); end else for i : = 1 to n do if a[i] > 0 then write(a[i]: 4); end.