Задание:
От слова ТЕЛЕФОНОГРАММА получить слово ГРАММОФОН. На ппаскале, с помощью удаления, вставки и копиравания, еще вычислить сколько символов в строке. Строку ввести с клавиатуры. (Используется функция нахождения длины строки length). Пожалуйста очень надо
Решение:
1) var s: string; begin s: ='ТЕЛЕФОНОГРАММА'; s: =copy (s, 9, 5)+s[6]+copy (s, 5, 3); writeln (s); end.2) vars: string; beginreadln (s); writeln (length (s); end.
Знаете другой ответ?