Ограничение по времени, сек 2
ограничение по памяти, мегабайт 64
в зоомагазине нужно расставить в один ряд клетки с животными. в ряд помещается n клеток, при этом есть одно ограничение: нельзя ставить рядом две клетки с собаками (иначе они передерутся). предполагается, что в магазине есть неограниченное количество клеток с разными животными. определите, сколькими безопасными можно расставить n клеток в ряд.
входные данные
входная строка содержит одно натуральное число – количество клеток в ряду n .
выходные данные
программа должна вывести количество безопасных расстановки n клеток в ряд.
program raf105;
var
s,word1: string;
s2:array of string;
i,pointcount: integer;
begin
write('Введите искомое слово: ');
readln(word1);
writeln('Введите строку с предложениями, которые заканчиваются точкой');
readln(s);
for i:=1 to length(s) do
if s[i]='.'
then pointcount:= pointcount + 1;
writeln;
writeln('Предложения в которых найдено искомое слово:');
s2:= s.ToWords(#46);
for i:=0 to pointcount-1 do
if s2[i][1]=' '
then delete(s2[i],1,1);
for i:=0 to pointcount-1 do
if pos(lowercase(word1),lowercase(s2[i])) <> 0
then writeln(s2[i],'.');
end.
PascalABC 3.4.2Графический редактор Xara Xtreme Pro позволяет корректировать фотографии, а также создавать разнообразные иллюстрации для печати или публикации в Сети. Программа содержит большое количество инструментов, рассчитанных на обработку векторной и растровой графики.
Xara Xtreme Pro обладает традиционным для программ подобного класса интерфейсом. Расположение и конфигурация панелей инструментов позволяют без проблем работать с приложением на одном мониторе. Второе устройство вывода информации не требуется. Панель инструментов, расположенная в верхней части рабочего окна, содержит сервисные функции. Основные операции над векторными изображениями сосредоточены внутри левой боковой панели. Чуть выше строки статуса располагается палитра.
Во время создания новой иллюстрации вы оперируете объектами. Например, вы нарисовали квадрат с инструмента Reсtangle Tool. В любой момент времени вы можете переместить его внутри рисунка, изменить размер, форму, а также применить различные эффекты. В зависимости от скорости рабочей станции вы можете менять качество прорисовки документов. Указание режима максимального качества позволяет отображать все элементы со сглаживанием, что заметно улучшает картинку.