Question

Как это доделать и заставить работать?

var f1,f2: text;

m,n,nn: string;

i,j:integer;

begin

assign(f1,'input.txt');

reset(f1);

assign(f2,'output.txt');

rewrite(f2);

while not eof(f1) do begin

readln(f1,n);

readln(f1,nn);

end;

writeln('Длина первой строки ',Length(n));

writeln('Длина второй строки ',Length(nn));
(ЗДЕСЬ НАДО СДЕЛАТЬ ПРОВЕРКУ ДЛИНЫ СТРОК!!!)

j:=0;

for i:=1 to Length(nn) do begin

m:=nn[i];

if (m in n) then inc(j);

end;

writeln ('Количество элементов строки S в J = ', j);

readln (f1);

writeln (f2,'Количество элементов строки S в J =' ,j);

close(f1);

close(f2);

end.

Answer 1

Ответ:

загрузи картинку на которой это всё написано