Допустим слово ввели в программу так read(s); где s - переменная типа string тогда для s справедливо выражение a:=length(s); где a - переменная типа integer библиотечная функция Length() возвращает длину строки. А длина строки в свою очередь и есть кол-во букв в слове Итак код // program one; var s:string; a:integer; begin Write('Введите слово:'); readln(s); a:=length(s); write('Кол-во букв в слове=',a); end.
read(s); где s - переменная типа string
тогда для s справедливо выражение
a:=length(s); где a - переменная типа integer
библиотечная функция Length() возвращает длину строки.
А длина строки в свою очередь и есть кол-во букв в слове
Итак код
//
program one;
var s:string;
a:integer;
begin
Write('Введите слово:');
readln(s);
a:=length(s);
write('Кол-во букв в слове=',a);
end.