1)Написать функцию function Test(word:string): boolean принимающую значение True, если последнее слово строки входит в нее еще раз.
2)Текст задан строкой: var St: string
Напечатать текст, составленный из последних литер всех слов.
3)Написать функцию для нахождения расстояния |a-a[j]| между двумя наиболее близких по значению элементами вектора.
4)Const n=20; Type vector= array[1..n] of integer; Напишите программу, которая вычисляет для вектора x:
x[1] 2+x[3] 2+...+x[последнее нечетное] 2.
Pascal ABC ПОМОГИТЕ!СРОЧНО!
готов помочь ICQ#: 410-691-984
(при обращении, отправляйте ссылку на данную тему)
(при обращении, отправляйте ссылку на данную тему)