Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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 четно