Имеется задача: "Вводится последовательность символов. Точка - признак конца. Подсчитайте, сколько малых латинских букв каждого вида входит в данную последовательность."
Моё решение:
var s1,s2:string;
i,k,o,n:integer;
begin
For i:=1 to length(s1) do begin
read;
s1:= n;
If s1 = '.' then break;
end;
s2:='qwertyuiopasdfghjklzxcvbnm';
For i:=1 to 10 do begin
For k:=1 to length(s2) do begin
If s1 = s2[k] then inc(o);
end;
end;
writeln(o);
end.
Однако мне выдаёт ошибку "нельзя преобразовать тип integer к char"
В чем состоит проблема, как её решить, и вообще верно ли решение?
Моё решение:
var s1,s2:string;
i,k,o,n:integer;
begin
For i:=1 to length(s1) do begin
read;
s1:= n;
If s1 = '.' then break;
end;
s2:='qwertyuiopasdfghjklzxcvbnm';
For i:=1 to 10 do begin
For k:=1 to length(s2) do begin
If s1 = s2[k] then inc(o);
end;
end;
writeln(o);
end.
Однако мне выдаёт ошибку "нельзя преобразовать тип integer к char"
В чем состоит проблема, как её решить, и вообще верно ли решение?