Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Объяснение:
а-3
б-2
в-1
по-моему так, а там хз
Второе фото - векторная графика, первое - растровая.
program xxx;
var a: string;
begin
write('введите строку-');
read(a);
write(a);
readln
end.
var
i,j,k: integer;
s,p: string;
p: ='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';
readln(s);
k: =0;
for i: =1 to length(s) do
for j: =1 to length(p) do
if s[i]=p[j] then k: =k+1;
writeln(k);
Популярные вопросы