TURBO PASCAL:Учебное пособие. Терёхин В.В. - 82 стр.

end;
begin
   Writeln(IntToStr(-5322) ) ;
end.

           Задачи для самостоятельного решения
1. Дана строка s. Исключить из нее все лишние пробелы, то
есть вместо каждой группы пробелов оставить только один.
2. Дана строка s, состоящая из слов, разделенных между собой
одним или несколькими пробелами. Найти номер самого ко-
роткого слова. Если таких слов несколько, то указать все их
номера.
3. Дана строка s, состоящая из слов, разделенных между собой
одним или несколькими пробелами. Определить, сколько раз
стоящие рядом два слова начинаются на одну и ту же букву.
4. Дана строка s, состоящая из букв латинского алфавита. Пре-
образовать данную строку, упорядочив в ней буквы по алфави-
ту.
5. Дана строка s1. Образовать строку s2, включив в нее симво-
лы строки s1, расположенные на нечетных позициях, кроме
пробелов и знаков препинания.


       20 Генератор случайных чисел
       В Паскале существует встроенный генератор случайных
чисел. Для его инициализации (установки начального значе-
ния) используют процедуру Randomize.

procedure Randomize;

     Для получения случайного числа используют функцию
Random,

function Random [(Range: Word)]: Integer[Real];

                                                           82