Question

С клавиатуры вводится строка. Определить чётно или нет количество символов в нём. Паскаль

Answer 1

Var s:string; l:integer;
begin
writeln('Введите строку:');
readln(s);
l:=length(s);
if l mod 2 = 0
 then writeln('Количество символов в строке = ',l,' четно')
 else writeln('Количество символов в строке = ',l,' нечетно');
end.

Пример:
Введите строку:
Количество
Количество символов в строке = 10 четно