Предмет: Информатика,
автор: 8bschool
паскаль
Определить, как часто встречается определенный символ в строке.
вот начало программы
var st:string;
burger:char;
i,kol:integer;
begin
write('Введи строку ');
readln(st);
write('Введи символ ');
readln(burger);
закончите плз
Ответы
Автор ответа:
0
var s: string;
i, k: integer;
begin
writeln('Enter string:');
readln(s);
k := 0;
//Вместо Y символ(думаю сможеш прицепить ввод)
for i := 1 to length(s) do if (s[i] = 'Y') then inc(k);
write('Quantity of symbol in string is equal to ', k);
readln
end.
Похожие вопросы
Предмет: Английский язык,
автор: Yoda6735
Предмет: Математика,
автор: vikson0507
Предмет: Обществознание,
автор: PeylanpEylAn
Предмет: Геометрия,
автор: Полик2408