Ты говоришь:
пока i < длины строки S делай:
если S с индексом i = "." то k++
Все
Ты не меняешь "i", он у тебя всегда 1й элемент смотрит)
Как должно быть:
------------------
While i<=length(s) do begin
If s[i]='.' then
k:=k+1;
inc(i);
end;
----------------------
//PascalGUI
var
a:integer;
begin
readln(a);
case a of
1:writeln('Понедельник');
2:writeln('Вторник');
3:writeln('Среда');
4:writeln('Четверг');
5:writeln('Пятница');
6:writeln('Суббота');
7:writeln('Воскресенье')
else writeln('Не день недели');
end;
end.
Пример ввода:
1
Пример вывода:
Понедельник
Ответ:
<em><u>(см объединение)</u></em>
Объяснение:
AB\/A=A
A_B_AB\/A
0_0_0
0_1_0
1_0_1
1_1_1
............................30