Итерация 1:
dat 1 < 3
итерация 2: dat2 > 3, m = 1
итерация 3: dat3 > 3, m = 2
итерация 4: dat4 > 3, m = 3
итерация 5: dat5 > 3, m = 4
итерация 6: dat6 < 3, m = 4
итерация 7: dat7 < 3, m = 4
итерация 8: dat8 < 3, m = 4
итерация 9: dat9 > 3, m = 5
итерация 10: dat10 > 3, m = 6
Ответ: 6
<em /><em /><em>VAR</em>
<em> a, b: LongInt;</em>
<em>BEGIN</em>
<em> Read(a, b);</em>
<em />
<em> If (a > b) then Write(a, ' > ', b)</em>
<em> Else If (b > a) then Write(b, ' > ', a)</em>
<em> Else Write(a, ' = ',b);</em><em> </em>
<em>END.</em>
Разные разрешения (форматы)
<span>Текст содержит 7 букв Русского алфавита объемом 13 байт..!!!</span>
У 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.