1)даны 3 числа абс определите кол-во отрицательных. 2)проверить принадлежность числа х интервалам абсд включительно
Answers & Comments
blowberryninja
1. var a.b.c,k:integer; begin readln(a,b,c); if a<0 then k:=k+1; if b<0 then k:=k+1; if c<0 then k:=k+1; writeln('koli4estvo=',k); end.
2. var a,b,c,d,i,x:integer; begin readln(x); for i:=a to b do if i=x then writeln('Prinadlejit ot ',a,'do',b,'!'); for i:=c to d do if i=x then writeln('Prinadlejit ot ',c,'do',d,'!'); end.
Answers & Comments
var a.b.c,k:integer;
begin
readln(a,b,c);
if a<0 then k:=k+1;
if b<0 then k:=k+1;
if c<0 then k:=k+1;
writeln('koli4estvo=',k);
end.
2.
var a,b,c,d,i,x:integer;
begin
readln(x);
for i:=a to b do
if i=x then writeln('Prinadlejit ot ',a,'do',b,'!');
for i:=c to d do
if i=x then writeln('Prinadlejit ot ',c,'do',d,'!');
end.