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 четно
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
