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]:=з; ...

Вам нужно узнать решение и ответ на вопрос 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]:=з; ... и правильно выполнить домашнюю работу по предмету Информатика? Готовое решение смотрите далее.

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.


Подобные ответы

Составить уравнение, плиз помогите
Составить уравнение, плиз помогите
составьте программу которая находит сумму цифр трех значного числа на PascalABC
составьте программу которая находит сумму цифр трех значного числа на
найдите значение выражения
найдите значение выражения
Составьте массив из 30 элементов, вывести произведение нечётных чисел, кратных трём
Составьте массив из 30 элементов, вывести произведение нечётных чисел, кратных
как осуществляется ввод графической информации
как осуществляется ввод графической информации