Практикум по программированию на языке Turbo Pascal. Часть 2. Портнягина В.В - 20 стр.

    Вариант 16
    Введите строку, содержащую только цифры. Удалите из
строки все нули.


                             Задание 2

    Постановка задачи. Введите фамилию, имя и отчество
как одно данное строкового типа(String). Определите длину
строки и количество букв 'а' в ней. Выполните дополнитель-
но задание своего варианта:
                                                              Таблица 4

                         Варианты заданий

 Вариант №                           Текст задания
Вариант 1    Продублировать первые буквы трех слов.
Вариант 2    Вывести длины трех слов.
Вариант 3    Изъять все буквы 'а ' и ' о ' из фамилии.
Вариант 4    Вывести фамилию и инициалы.
Вариант 5    Определить начинается ли хотя бы одно слово с буквы ' М '?
Вариант 6    Убрать пропуски в строке. Определить сколько букв в име-
             ни?
Вариант 7    Каждую букву имени продублировать.
Вариант 8    Вывести имя и количество букв в третьем слове.
Вариант 9    Вывести самое длинное слово.
Вариант 10   Вывести свои инициалы (первые буквы ФИО с точками).
Вариант 11   Вывести имя в столбик.
Вариант 12    Вывести имя, отчество и количество букв в фамилии.
Вариант 13   Вывести имя и количество букв в фамилии.
Вариант 14   Вывести фамилию в обратном порядке.
Вариант 15   Вывести самое короткое слово.
Вариант 16   Вывести отчество в столбик.




                                 20