Предмет:
ИнформатикаАвтор:
slickОтвет:
Ok. Ввиду того, что язык указан не был, Паскаль, я выбираю тебя!
Var k,c,i:integer;
S:sting[256];
Begin
Read(k);
Read(s);
For i:= 1 to k do
If s[i] <> 'f' then c:=c+1;
Write(c);
End.
Автор:
gavynf6quДобавить свой ответ
Предмет:
МатематикаАвтор:
jase7gfpОтветов:
Смотреть
Предмет:
МатематикаАвтор:
bootie9fqfОтветов:
Смотреть