Дана последовательность произвольных символов(вводится с клавиатуры) подсчитать количество строчных(маленьких) букв латинского алфавита в этой последовательности. Паскаль
Ответы
Ответ дал:
0
var s,st: string;
i,k: integer;
begin
st:='abcdefghqijklmnoprstuvwxyz';
write('строка: '); readln(s);
k:=0;
for i:=1 to length(s) do
if pos(s[i],st)>0 then k:=k+1;
writeln(k);
end.
строка: Это lat строка.
3
i,k: integer;
begin
st:='abcdefghqijklmnoprstuvwxyz';
write('строка: '); readln(s);
k:=0;
for i:=1 to length(s) do
if pos(s[i],st)>0 then k:=k+1;
writeln(k);
end.
строка: Это lat строка.
3
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
8 лет назад
8 лет назад