Var a,b,c,r,s,p: real; begin write('длины сторон треугольника a,b,c через пробел: '); readln(a,b,c); write('радиус круга r: '); readln(r); p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); if r>=(a*b*c)/(4*s) then writeln('можно поместить') else writeln('нельзя поместить'); end.
длины сторон треугольника a,b,c через пробел: 3 4 5 радиус круга r: 2.49 нельзя поместить
длины сторон треугольника a,b,c через пробел: 3 4 5 радиус круга r: 2.5 можно поместить
Если удалить из костюма элемент брюки, то он уже не будет костюмом. Если удалить из автомобиля элемент колёса, то без колёс автомобиль не поедит. Если удалить из компьютера элемент процессор, то он не будет больше компьютером. Если удалить из городской телефонной сети элемент электричество в городе, то сеть не будет ловить. Если удалить из школы элемент учитель, то это не будет школой. Если удалить из государства Президента, то кто будет править государством? Сущ.:Костюм, автомобиль, компьютер,школа. Несущ.:Городск. телеф. связь, государство.
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016 function IsPrime(n:integer):boolean; begin if n<4 then Result:=True else begin var found:= (n mod 2 = 0); var p:=3; while (not found) and (sqr(p)<=n) do begin found:=(n mod p = 0); p+=2 end; Result:=not found end end;
begin Writeln('k=',ArrRandom(ReadInteger('n='),1,999).Println. Where(x->IsPrime(x)).Count) end.
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016 procedure IsPrime(n:integer; var res:boolean); begin if n<4 then res:=True else begin var found:= (n mod 2 = 0); var p:=3; while (not found) and (sqr(p)<=n) do begin found:=(n mod p = 0); p+=2 end; res:=not found end end;
begin var a:=ArrRandom(ReadInteger('n='),1,999); a.Println; var k:=0; var prime:boolean; foreach var e in a do begin IsPrime(e,prime); if Prime then Inc(k) end; Writeln('k=',k) end.
begin
write('длины сторон треугольника a,b,c через пробел: ');
readln(a,b,c);
write('радиус круга r: '); readln(r);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
if r>=(a*b*c)/(4*s) then writeln('можно поместить')
else writeln('нельзя поместить');
end.
длины сторон треугольника a,b,c через пробел: 3 4 5
радиус круга r: 2.49
нельзя поместить
длины сторон треугольника a,b,c через пробел: 3 4 5
радиус круга r: 2.5
можно поместить