Ты говоришь:
пока i < длины строки S делай:
если S с индексом i = "." то k++
Все
Ты не меняешь "i", он у тебя всегда 1й элемент смотрит)
Как должно быть:
------------------
While i<=length(s) do begin
If s[i]='.' then
k:=k+1;
inc(i);
end;
----------------------
Потому что время жизни флеш памяти ограничено гораздо сильнее жесткого диска и определяется оно для флешки количеством записи/перезаписи.
Циферки на часах показывают номер буквы в алфавите, минутные тоже:
Теперь давай попробуем определить:
первые часы показывают 16 часов 2 минуты
вторые часы 10 часов 5 минут
третьи часы 21 час 26 минут. Теперь надо перевести циферки на алфавит.
Исходим из того что N переменная целого типа
Ответ: 1+2+4=7