Предмет: Информатика,
автор: 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.
Интересные вопросы
Предмет: Английский язык,
автор: lidiaiftodij
Предмет: Русский язык,
автор: log567123
Предмет: Химия,
автор: kozakulovar
Предмет: Биология,
автор: vr9
Предмет: Биология,
автор: AlekseyBarakin