Предмет: Информатика,
автор: 14236
Турбо паскаль:
Вводится строка и символ. Определить количество
слов, содержащих введенный символ.
Ответы
Автор ответа:
0
uses crt;
a:string;
s:char;
i,z:integer;
begin
readln(a,s);
for i:=1 to length(a) do
begin
if a[i]=s then inc(z);
end;
writeln(z);
end.
a:string;
s:char;
i,z:integer;
begin
readln(a,s);
for i:=1 to length(a) do
begin
if a[i]=s then inc(z);
end;
writeln(z);
end.
Похожие вопросы
Предмет: Математика,
автор: karlygasbekhozaeva
Предмет: Биология,
автор: nodirakasimova57154
Предмет: Қазақ тiлi,
автор: nurrys322
Предмет: Математика,
автор: Karinochka2002