Чем можно заменить оператор string?
Чем можно заменить string в приведенном коде
Пожалуйста, вот программа, но она написана с использованием оператора string, а его мы еще не изучали, исправьте программу пожалуйста
Код Pascal
const z=['0'..'9'];
x=['a'..'z','A'..'Z'];
var
i,k,l:byte;
s:string;
begin
writeln('vvedite stroky');
readln(s);
for i:=1 to length(s) do
if s in z then k:=k+1;
writeln('kol-vo cifr= ',k);
for i:=1 to length(s) do
if s in x then l:=l+1;
writeln('kol-vo bykv= ',l);
if k=l then writeln('rovmo')
else
if k>l then writeln('cifr bolshe')
else writeln('bykv bolshe');
end.