Напишите программу, которая вычисляет длину введенной с клавиатуры строки.
Решение:
|
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. |