информация – постоянный спутник человека люди всегда стремились облегчить свой труд с механизмов и машин. и такой машиной для работы с информацией стал компьютер.
человек и алгоритм в нашей повседневной жизни нас окружают алгоритмы, любой человек выполняет свои действия по порядку, раздумывая, правильно ли он поступает.
или теоретическая часть: для многих существуют определенные правила (инструкции), объясняющие исполнителю, как решать данную . чем точнее и понятнее будут описаны правила решения , тем быстрее человек овладеет ими и будет эффективнее их применять.
В условии задачи нечетко указано, какой символ искать: "о" - это может быть и латинская буква, и кириллическая. В программе предполагается, что это латинский символ, в противном случае его достаточно заменить в const на нужный.
const c:char='o'; var s:string; i,k:integer; begin Write('Введите строку: '); Readln(s); k:=0; for i:=1 to Length(s) do if s[i]=c then Inc(k); Writeln('Символ "',c,'" встречается ',k,' раз(а)') end.
Тестовое решение: Введите строку: Learn wisdom by the follies of others Символ "o" встречается 4 раз(а)
информация – постоянный спутник человека люди всегда стремились облегчить свой труд с механизмов и машин. и такой машиной для работы с информацией стал компьютер.
человек и алгоритм в нашей повседневной жизни нас окружают алгоритмы, любой человек выполняет свои действия по порядку, раздумывая, правильно ли он поступает.
или теоретическая часть: для многих существуют определенные правила (инструкции), объясняющие исполнителю, как решать данную . чем точнее и понятнее будут описаны правила решения , тем быстрее человек овладеет ими и будет эффективнее их применять.
const
c:char='o';
var
s:string;
i,k:integer;
begin
Write('Введите строку: '); Readln(s);
k:=0;
for i:=1 to Length(s) do if s[i]=c then Inc(k);
Writeln('Символ "',c,'" встречается ',k,' раз(а)')
end.
Тестовое решение:
Введите строку: Learn wisdom by the follies of others
Символ "o" встречается 4 раз(а)