Марвин. роботу марвину одновременно можно поручить решать до 256 . настроение марвина измеряется целым числом от 0 до 100. если среди порученных марвину трудные или неразрешимые проблемы, то его настроение улучшается на 1. до того, как марвину будут даны какие-либо , его настроение равно 0. напишите программу для подсчета настроения марвина после поручения ему всех .формат входных данныхв первой строке содержится число k порученных марвину (1 ≤ k ≤ 256). во второй строке записана последовательность из букв s, d и f длиной k, где s означает, что марвину поручено трудное , d — неразрешимая проблема, а f — , которая не является ни трудной, ни неразрешимой.формат выходных данныходно число — настроение марвина.пример входных и выходных файловtask1.in 10sdffsdfsdf100 task1.out69
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.