var a:string;
i,j:integer;
begin
readln(a);
while pos('#',a)<>0 do delete(a,pos('#',a),1);
if n mod 2=0 then write('Четное')
else write('Не четное');
M = [-10, -9 .. 10]
f(x) = x*x - (if (x > 1) then x else sin(x))
main = print(map f(m))
Var a,b,p:integer;
begin
writeln ('Введите стороны прямоугольника:');
readln(a,b);
p:=2*(a+b);
writeln ( 'Периметр прямоугольника = ',p);
readln;
end.
Пример:
<span>Введите стороны прямоугольника:
3 5
Периметр прямоугольника = 16</span>
10111011(2) = 1*2^7+0+1*2^5+1*2^4+1*2^3+0+1*2^1+1*2^0 = 128+32+16+8+2+1 = 187(10)