Const n = 13; Var X:array[1..n] of integer; i:integer; S:real; Begin Randomize; S:=0; Write('Исходный массив:'); For i:= 1 to n do Begin X[i]:=random(2*n)-n; Write(' ',X[i]); if X[i]<0 then S:=S+i End; WriteLn; WriteLn('S = ',S); End.
function ptcrk(a,b,x,y,r: real): integer; var k: integer; begin k:=0; if abs(sqr(x-a)+sqr(y-b)-r*r)<1.0e-9 then k:=1; if r*r-sqr(x-a)-sqr(y-b)>1.0e-9 then k:=2; ptcrk:=k; end; // основная программа var a,b,x,y,r,k: real; begin write('координаты центра a b: '); readln(a,b); write('координаты точки x y: '); readln(x,y); write('радиус: '); readln(r); k:=ptcrk(a,b,x,y,r); if k=1 then writeln('точка на окружности'); if k=2 then writeln('точка внутри круга'); if k=0 then writeln('точка вне круга'); end.
координаты центра a b: 2 1 координаты точки x y: 4 1 радиус: 2.1 точка внутри круга
координаты центра a b: 2 1 координаты точки x y: 4 1 радиус: 2 точка на окружности
Интернет - бесценное хранилище человеческого опыта и полезной информации. Любой желающий может использовать его содержимое в своих целях.
Интернет - неограниченное общение, включающее в себя переписки, голосовое общение, видеосвязь. В социальных сетях можно найти своих одноклассников, однокурсников, сослуживцев, коллег.
Минусы:
В интернете имеются сайты-ловушки, сайты без контента с одной только рекламой и заражённые сайты.
В некоторых сегментах интернета есть цензура. Интернет часто отнимает больше времени, чем нужно там проводить (Опционально).
n = 13;
Var
X:array[1..n] of integer;
i:integer;
S:real;
Begin
Randomize;
S:=0;
Write('Исходный массив:');
For i:= 1 to n do
Begin
X[i]:=random(2*n)-n;
Write(' ',X[i]);
if X[i]<0 then S:=S+i
End;
WriteLn;
WriteLn('S = ',S);
End.