var a:string;
i:integer;
c:boolean;
begin
readln(a);
repeat
if pos('+',a)<>0 then begin inc(i); delete(a,pos('+',a),1); end;
if pos('-',a)<>0 then begin inc(i); delete(a,pos('-',a),1); end;
if (pos('+',a)=0) and (pos('-',a)=0) then c:=true;
until c;
writeln(i);
end.
Var
<span> a, b, c, p,s,s1: real;</span>
begin
<span><span>
write(</span>'Введите три стороны треугольника: '<span>); </span></span><span>
read(a, b, c);</span><span>
p := (a + b + c) / 2;</span><span>
s := sqrt(p * (p - a) * (p - b) * (p - c));</span><span><span>
write(</span>'Введите три стороны другого треугольника: '<span>); </span></span><span>
read(a, b ,c);</span><span>
p := (a + b + c) / 2;</span><span>
s1 := sqrt(p * (p - a) * (p - b) * (p - c));</span><span><span>
write(</span>'Треугольники равновеликие -- ', s = s1)</span><span>
end.</span>
Если не ошибаюсь,то так))
1)
#include<iostream>using namespace std;int main(){ int x,y; cin>>x>>y; if(x<0 && y>0) cout<<"YES"; else cout<<"NO"; return 0;}
2)
#include<iostream>using namespace std;int main(){ int n,m,s; cin>>n>>m; s=(n/100*100)+(m%10*10)+n%10; cout<<s; return 0;}