Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
s : string;
a : integer;
begin
writeln('введите строку символов: '
readln (s);
a: = length(s);
if a mod 2= 0 then writeln ('четное') else writeln('не четное');
readln;
end.
3*3: (3*3)=1
(3*3-3): 3=2
3*3-(3+3)=3
(3*3+3): 3=4
(3+3): 3+3=5
(3+3-3)+3=6
(3: 3+3)+3=7
3*3-(3: 3)=8
3*3-(3-3)=9
3*3+3: 3=10
Популярные вопросы