Допустим слово ввели в программу так 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.
Объективность=Эти брюки стоят три тысячи рублей необъективность=Эти брюки дорого стоят Достоверность= все ныне живущие люди умрут недостоверность=люди бессмертны полнота=Ира, моя родная сестра, приехала погостить на пару дней неполнота=девушка актуальность=на вашем счёте 2 рубля неактуальность=в 1894 на счёте вашего прапрадедушки было семь шекелей ценная информация=хорошо написанная статья о том как вылечить больную печень. эта информация ценна для пьяницы не ценная=та же статья но для здорового шахтёра в уральских горах ценна не будет понятная информация=в долларе 56,89 рубля непонятная информация=ドル56.89ルーブル
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.