Робот стартует из начальной точки в начальный момент и едет по полигону, поворачивая через каждую минуту на 90º направо или налево. За первую минуту он проехал 1 м, за вторую минуту – 2 м, и т. д. На каком наименьшем расстоянии от начальной точки он мог оказаться через 11 минут после старта? 1) 0 м
2) 1 м
3) 2 м
4) 7 м

program pr; label l; var mas: array[1..10] of integer; i,k,n,b,sum: integer; beginrandomize; for i: =1 to 10 do mas[i]: =round(())*random+(-10)); l: for i: =1 to 10 dobeginif n< mas[i] thenbeginn: =mas[i]; k: =i; end; end; writeln ('a[',k,']=',n); mas[k]: =-11; n: =0; k: =0; if b=0 thenbeginb: =1; goto l; end; readln; end.

программу проверил все работает

1) 

var

s: string;

begin

s: ='пробел';

writeln(s);

delete(s,4,1);

insert('д',s,4);

writeln(s);

end.

2)

var

i: integer;

a,b: string;

begin

readln(a);

b: ='';

for i: =1 to length(a) do

b: =b+a[i]+' ';

writeln(b);

end.

3)

var

a: string;

begin

readln(a);

if a[2]=a[4] then writeln('равны')

else  writeln('не равны');

end.

если хранить без знака, то диапазон от 0 до 15(2^3+2^2+2^1+2^0) 

таблица умножения

программа телепередач

телефонный справочник

прогноз погоды

меню в столовой