Найдите количество исковой буквы в заданном слове в паскаль нужно сейчас сдавать ​

polcha2002 polcha2002    1   03.05.2019 12:55    1

Ответы
dashadgankozde8z dashadgankozde8z  09.06.2020 07:32

var c, s: string;

i, sum: integer;

begin

   s:='moloko';

   c:='o';

   sum:=0;

   for  i:=1 to length(s) do

       if s[i] = c then

           sum += 1;

   writeln(sum);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика