<span>html редактор, xcll редактор, и т.д.</span>
Без звука. выключить. включить. переключать каналы.
менять громкость.
Var
x,y : integer;
begin
Writeln('Введите координаты x: ');
Read(x);
Writeln('Введите координаты y: ');
Read(y);
if (x>2) or (x<-2) then
Writeln('Принадлежит') else Writeln('Не принадлежит');
<span>end.</span>
Var a,s:integer;
begin
readln(a);
a:=abs(a);
s:=(a div 100)+(a div 10 mod 10)+(a mod 10);
writeln('s = ',s);
end.
Пример:
125
s = 8