Предмет: Информатика,
автор: 1223n
с клавиатуры вводиться строка и буква ,необходимо составить программу которая подсчитывает сколько раз эта буква встречалась в программе?
Ответы
Автор ответа:
0
Program n1;
Uses CRT;
Var s: string; a: char; i,k: integer;
begin
Writeln('Vvedite stroku');
readln(s);
Writeln('Vvedite simvol');
readln(a);
For i:=1 to length(s) do
if s[i]=a then k:=k+1;
Writeln('Simvol ',a,' vstrechaetsa v stroke ',k,' raz');
readln
end.
Интересные вопросы
Предмет: Химия,
автор: rascomaha
Предмет: Русский язык,
автор: beksultan7771
Предмет: Алгебра,
автор: slozkoy
Предмет: Математика,
автор: 197128