Question

Вова написал стих в одну строку.И ему стало интересно, сколько символов он написал? Вова ещё маленький и не умеет считать, помогите ему посчитать длину строки, которую он написал. Формат ввода: Вводится строка Формат вывода: оно число - длина строки, которую написал Вова Пример ввода: Я - Вова Пример вывода: 8Составьте пожалуйста программу в Pascal ABC )))

Answer 1

Var
  s:string;
begin
  Write('Введи строку: '); Readln(s);
  Writeln('Количество символов в строке равно ',length(s))
end.

Тестовое решение:
Введи строку: А роза упала на лапу Азора
Количество символов в строке равно 26

Answer 2

Программа на Pascal ABC для подсчета длины строки, написанной Вовой:

program CountStringLength;
var
  str: string;
  length: integer;
begin
  // Ввод строки
  writeln('Введите строку:');
  readln(str);
  
  // Подсчет длины строки
  length := 0;
  while str[length+1] <> '' do
    length := length + 1;
  
  // Вывод результата
  writeln('Длина строки:', length);
end.

В данной программе мы сначала просим пользователя ввести строку с помощью `readln(str)`. Затем мы применяем цикл while для подсчета длины строки. В каждой итерации цикла мы увеличиваем значение переменной `length` на 1 до тех пор, пока не достигнем конца строки (пустого символа). Наконец, мы выводим результат с помощью `writeln('Длина строки:', length)`.