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

1

Ответы и объяснения

2012-10-28T12:21:35+00:00

var

s:string;

begin

write ('Slovo - ');readln(s);

if odd(length(s))=false writeln ('Chetno') else writeln ('Nechetno');

readln;

end.