Program shifer; var z,v,a,b,m,s,j,x:integer; k:array[1..100] of char; n:array[1..100] of char; begin n[1]:=а; n[2]:=б; n[3]:=в; n[4]:=г; n[5]:=д; n[6]:=е; n[7]:=ё; n[8]:=ж; n[9]:=з; n[10]:=и; n[11]:=й; n[12]:=к; n[13]:=л; n[14]:=м; n[15]:=н; n[16]:=о; n[17]:=п; n[18]:=р; n[19]:=с; n[20]:=т; n[21]:=у; n[22]:=ф; n[23]:=х; n[24]:=ц; n[25]:=ч; n[26]:=ш; n[27]:=щ; n[28]:=ъ; n[29]:=ы; n[30]:=ь; n[31]:=э; n[32]:=ю; n[33]:=я; n[34]:=а; n[35]:=б; n[36]:=в; readln(a); for m:=1 to a do readln(b); for j:=1 to 33 do x:=0; if (b=n[1+x])then v:=n[1+x+3]; z:=0; k[1+z]:=v; z:=z+1; else x:=x+1; end; end; writeln(k); end. где ошибка?
У if'ов небыло begin и end; у значений массива n небыли проставленны ' ' одинарные кавычки для букв. у b и v в условиях не те типы данных, поэтому немогут они внутрь себя вместить букву, а только цифры, исправил с integer на char. не знаю что должна выводить программка, begin и end'ов нету и у циклов. Без begin и end'ов трудно мне просчитать что выведет программа. Program shifer;var z,a,m,s,j,x:integer;b,v:char;k:array[1..100] of char;n:array[1..100] of char;BEGINn[1]:='а';n[2]:='б';n[3]:='в';n[4]:='г';n[5]:='д';n[6]:='е';n[7]:='ё';n[8]:='ж';n[9]:='з';n[10]:='и';n[11]:='й';n[12]:='к';n[13]:='л';n[14]:='м';n[15]:='н';n[16]:='о';n[17]:='п';n[18]:='р';n[19]:='с';n[20]:='т';n[21]:='у';n[22]:='ф';n[23]:='х';n[24]:='ц';n[25]:='ч';n[26]:='ш';n[27]:='щ';n[28]:='ъ';n[29]:='ы';n[30]:='ь';n[31]:='э';n[32]:='ю';n[33]:='я';n[34]:='а';n[35]:='б';n[36]:='в';readln(a);for m:=1 to a do readln(b); for j:=1 to 33 do x:=0; if b=n[1+x] then begin v:=n[1+x+3]; z:=0; k[1+z]:=v; z:=z+1; end else begin x:=x+1; end; writeln(k);END.
всё равно не работает
это шифровальщик