Исправить ошибки в программе шифрования слова

@Ariana_03_1997 · Регистрация: 16.03.2016

Author24 — интернет-сервис помощи студентам

Pascal

Program esep;
uses crt;
var
 s_out,a,alf,san,k:string;
 i,j,t,l,s,p:integer;
Begin
 ClrScr;
 Write('Soz:');readln(a);
  Write('kilt:');readln(k);
  readln(s_out);
   alf:='klrsatnmuq';
  for i:=1 to length(a) do;
  for j:=1 to length (alf) do ;
begin
if a[i]=alf[j] then
begin
 for t:=1 to length (k) do ;
t:=t+1;
begin
san:=ord(k[t]);
val(san,l);
s:=(j+l)mod 10;
end;
s_out:=s_out+alf[s];
if t=length(k) then t:=0;
end;
end;
writeln('s_out=',s_out);
readkey;
end.

Здесь есть ошибка исправте пожалуйста

@Cyborg Drone · 22.03.2016, 16:25

Ну, в строке 20 явная ошибка. Попытка присвоить число строке. Алгоритмические ошибки найти не представляется возможным, поскольку Вы не написали, каков алгоритм шифрования.

@Cyborg Drone Модератор 9853 / 5223 / 3304 Регистрация: 17.08.2012 Сообщений: 15,974
	22.03.2016, 16:25	2
	Ну, в строке 20 явная ошибка. Попытка присвоить число строке. Алгоритмические ошибки найти не представляется возможным, поскольку Вы не написали, каков алгоритм шифрования. 0

Опции темы