Напишите программу, которая вычисляет длину введенной с клавиатуры строки.
Решение:
| 1 2 3 4 5 6 7 8 9 10 | program characters_and_strings_6; uses crt; var s: string; i, n: integer; begin write(‘Введите строку (макс. 50 симв.): ‘); read(s); write(‘Строка ‘, s, ‘ содержит ‘, length(s), ‘ символ(а)’); readkey; end. |