Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Объяснение:
Логическая операция A&B
И(конъюнкция)
program xxx;
s : string;
a : integer;
begin
writeln('введите строку символов: '
readln (s);
a: = length(s);
if a mod 2= 0 then writeln ('четное') else writeln('не четное');
readln;
end.
пщояк 17 27 16 33 17
нщёп 15 27 7 17
Популярные вопросы