Если паскаль абс
program v1;
var st1:string;
i,L:Integer;
numA:Integer;
begin
write('text: ');
readln(st1);
L := Length(st1);
numA := 0;
for i:=1 to L do begin
case st1[i] of
'А','а': numA:=numA+1; //rus
'A','a': numA:=numA+1; //eng
end;
st1 := UpperCase(st1);
writeln('Dlina stroki ',L);
writeln('kol-vo A ',numA);
end.
Если паскаль абс
program v1;
var st1:string;
i,L:Integer;
numA:Integer;
begin
write('text: ');
readln(st1);
L := Length(st1);
numA := 0;
for i:=1 to L do begin
case st1[i] of
'А','а': numA:=numA+1; //rus
'A','a': numA:=numA+1; //eng
end;
end;
st1 := UpperCase(st1);
writeln('Dlina stroki ',L);
writeln('kol-vo A ',numA);
end.