Предмет: Информатика,
автор: Vl4doss
Подсчитать количество символов введенной строке совпадающей с первым символом
Ответы
Автор ответа:
0
var s:string; i,r:integer;
begin
s:='система программирования и язык Pascal нового поколения для платформы Microsoft .NET, Pascal содержащий все основные элементы современных языков программирования: модули, ';
for i:=2 to length(s) do
if s[1] = s[i] then r:= r +1;
write(r);end.
begin
s:='система программирования и язык Pascal нового поколения для платформы Microsoft .NET, Pascal содержащий все основные элементы современных языков программирования: модули, ';
for i:=2 to length(s) do
if s[1] = s[i] then r:= r +1;
write(r);end.
Похожие вопросы
Предмет: Обществознание,
автор: strokoa508
Предмет: Қазақ тiлi,
автор: Rekezero
Предмет: Математика,
автор: 460032
Предмет: Математика,
автор: vikasafronova
Предмет: Математика,
автор: mehan1k0