паскаль
Определить, как часто встречается определенный символ в строке.
вот начало программы
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.
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад