Question

Написать программу: 1. Ввод с клавиатуры строки данных; 2. Подсчитать длину строки и вывести на экран.

Answer 1

program art;
 var s: string; 
 k: integer;
begin 
 writeln('Введите строку'); 
 readln(s); 
 k:=length(s); 
 writeln('Длина строки: ',k);    
end.

Answer 2

program art; var s: string; begin writeln('Введите строку'); readln(s); writeln('Длина строки: ', length(s)); end.

Answer 3

тут более простой вариант без дополнительной переменной