Дано предложение, определить длину последнего слова.

Var   str: string;   k,i: integer; begin   k: =1;   readln(str);   for i: =1 to length(str)  do begin   if str[i]='  ' then   k: =i; end;   writeln(length(str)-k); end.

5                                                                                         5 2 4 1 3  

100 312 0 312 500

Объяснение:

n участников олимпиады получили уникальные номера от 1 до n. В результате решения задач на олимпиаде каждый участник получил некоторое количество (целое число от 0 до 600). Известно, кто сколько набрал.

Перечислите участников олимпиады в порядке невозрастания набранных ими .

Входные данные

В первой строке содержится число n (0 ≤ n ≤ 101). Далее записаны n чисел - количество набранных участниками (первое число - это , набранные участником номер 1, второе - участником номер 2 и т.д.).

Выходные данные

Вывести n чисел - номера участников в порядке невозрастания набранных ими (участники, набравшие одинаковое количество балов должны выводится в порядке неубывания их номеров).

1-Файл- создать. Я поставила  размер 400 на 200.

2-Редактирование-выполнить заливку. Залить черным цветом.

 

3- Выбрать инструмент "текст",  установить параметры текста: шрифт, размер шрифта, цвет.

4-Написать слово  "Поздравляю", теперь нажать Enter на клавиатуре, чтобы второе слово было ниже, и продолжить писать " с праздником!"

5- В окне слоев кликнуть правой кнопкой мыши по слою с текстом

и, в появившемся окошке, выбрать " растрировать текст".

6- Еще раз по слою правой кнопкой мыши и выбрать "создать дубликат слоя".

7-Отключить глазок на нижележащем слое с текстом.

8-Выбрать инструмент ластик,   жесткость 100%, размер 13.

и стереть восклицательный знак.

9-В окне слоев, кликнув по верхнему слою, снова выбрать "создать дубликат слоя"

10-Отключить глазок на предыдущем слое

и стереть ластиком букву "м".

11- Повторять эти действия и дальше. Вот как будет выглядеть окно слоев и картинка, когда сотрете нижнее слово.

 

 

12-Теперь стираем таким же образом слово "поздравляю".

 

Переходим в окно анимации.

13-В окне анимации, нажать на значок, состоящий из четырех полос, который открывает диалоговое окно ( в других версиях фотошопа будет маленький черный треугольник)

и выбрать " создать кадры из слоев".

14-В окне анимации удалить первый черный  кадр ( нажать на него и тащить в корзину), он не нужен.

15-В окне анимации кликнуть по первому кадру и, нажав на Shift ,кликнуть по последнему кадру,чтобы выделить все кадры.

16-Все кадры выделены, теперь поставим время на кадрах 0, 2 сек. Выделение не снимать.

17-В окне слоев включить глазок на нижнем слое с черным фоном.

18-В окне анимации (все кадры остаются выделенными), нажать на значок, открывающий диалоговое окно, и выбрать "обратный порядок кадров.

19- Кликнуть по последнему кадру и поставить там время 2 сек.

Теперь можно смотреть анимацию и сохранять в формате Gif.

20-Файл-сохранить для Web и устройств (для последних версий фотошопа- Файл-экспортировать-сохранить для web).