Ответы на вопрос:
var a: string;
i,k: integer;
begin
readln(a);
for i: =1 to length(a) do begin
if pos(a[i],'абвгдеёжзийклмнопрстуфхцчшщъыьэюяабвгдеёжзийклмнопрстуфхцчшщъыьэюя')< > 0 then inc(k);
end;
writeln(k);
end.
Популярно: Информатика
-
даниил1агапов05.11.2021 15:19
-
zhiglinskaya86129.04.2023 14:38
-
TupouChuBaK21.06.2022 04:16
-
Katуа0720.12.2022 23:58
-
bIshkin27.06.2021 06:05
-
albinasobolevap06lwp10.10.2022 23:36
-
Barbara726425.07.2022 19:58
-
vlinkova424.01.2023 01:22
-
tatiana34215.09.2022 07:02
-
АнанасикиРулят06.01.2022 02:30