Немножко причесал до ввода кода. На то, что надписи английские, не обращайте внимание: просто мне так удобнее.
Код:
var
a,x,n,c,i,b,k,j:integer;
s,s_new:String;
Smb:Char;
p:array[1..100] of integer;
flag:boolean;
begin
flag:=true;
repeat
writeln('Enter the number of symbols in string (<=100):');
readln(n);
if n>100 then writeln('Error!')
until n<101;
repeat
writeln('Enter the string:');
readln(s);
if Length(s)<>n then writeln('Error!');
until Length(s)=n;
repeat
writeln('Entel the block length "a" (1<a<n+1) and ((n mod a)=0)');
readln(a);
if (a<2) or (a>n) or ((n mod a)<>0) then writeln('Error!');
until (a<=n) and (a>1) and ((n mod a)=0);
writeln('Enter the code');
Теперь дальше.
Цитата:
Сообщение от Smile188
Помогите исправить, что бы при вводе кода читались не только цифры, но и другие символы (что бы программа не вылетала)
|
Естественно, будет ругаться, раз вы определили массив
p, как численный, а пытаетесь загнать в него "другие символы". Но чтобы отладить эту часть программы, желательно было бы получить разъяснение на словах о том, как формируется этот самый код. Из Вашей программы я этого, извините, понять не сумел.