Var s: string;
<span> n,k: integer;
</span><span>begin
</span><span> write('строка: '); readln(s);
</span><span> n:=pos(' ',s);
</span><span> if n>0 then
</span><span> begin
</span><span> writeln('первая буква второго слова: ',s[n+1]);
</span><span> writeln('последняя буква: ',s[length(s)]);
</span><span> writeln('количество букв: ',length(s)-n);
</span><span> k:=0;
</span><span> for n:=1 to length(s) do
</span><span> if s[n]='a' then k:=k+1;
</span><span> if k>0 then writeln('количество букв a: ',k)
</span><span> else writeln('в строке нет буквы a');
</span><span> end
</span><span> else writeln('в строке одно слово');
</span><span>end.
</span><span>
</span>
Информационные потоки преобразуют и обрабатывают информацию
В общем, проверь ссылки ярлыков (точно ли ведут на нужные программы) и наличие необходимого (.NET, DirectX (хотя не вижу связь, но не повредит)), ну и, конечно, систему антивирем (Kaspersky Virus Removal Tool самое оно)
Нужно сложить от 1 до 101 символа (в зависимости от количества и размера данных чисел)
отевет: не более 101 числа
1 игрок долден сходить на 2 часа вперед. стрелка будет на 2 часа. А далее если второй двинет ее на 2 то первый победит так как он тоже двинет ее на 2 и она будкт на 6 часов.
Также вначале нельзя первому ходить на 3 часа так как его противник сделает то же и победит значит дальше действуй по такому алгоритму и победишь!