Ответ на задачи и их решения
0 голосов
25 просмотров

с клавиатуры вводиться строка и буква ,необходимо составить программу которая подсчитывает сколько раз эта буква встречалась в программе?

от (14 баллов) в категории Информатика | 25 просмотров

1 Ответ

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.

от Одаренный (1.7k баллов)
Здравствуйте! На сайте Otvet-Master.ru собраны ответы и решения на все виды школьных задач и университетских заданий. Воспользуйтесь поиском решений на сайте или задайте свой вопрос онлайн и абсолютно бесплатно.
10,984,878 вопросов
13,471,016 ответов
8,518,553 комментариев
4,909,216 пользователей