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

1

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

2012-10-28T14:57:08+00:00

uses crt;
var s: string;
begin
writeln('Напишите слово');
readln(s);
if (length(s) mod 2 = 0) then
begin
writeln('четное кол-во');
end
else writeln('не четное');

end.