Программа: Определение длины слова

Задача: Определить сколько символов содержится в веденном слове?

PROGRAM abcde;
	USES crt;
	VAR str: string;
BEGIN
	WriteLn('Введите слово: ');
	ReadLn(str);
	WriteLn('Длина строки: ', length(str));
END.

Просмотрело: 2217

Возможно, Вы искали: