Var
a: array[-10..10] of real;
i: integer;
begin
for i := -10 to 10 do begin
Read(a[i]);
a[i] := a[i] / 10;
Write(a[i]+' ');
end;
end.
Program n1;
var n,i: longint;
function simply(a: longint ):boolean;
var i: longint;
begin
simply:=true;
for i:=2 to trunc(sqrt(a)) do begin if a mod i=0 then begin
simply:=false;
break
end
end
end;
begin
readln(n);
for i:=2 to n do if simply(i) then write(i,' ');
end.
<span>Баскетбол – спортивная командная игра, в которой игроки стараются забросить мяч в корзину. Баскетбол – видовое понятие. Спортивная командная игра – родовое понятие. Игроки стараются забросить мяч в корзину – видовое отличие.
</span><span>Удав – большая хищная змея тропических стран, обычно обвивающая свою жертву при нападении. Удав – видовое понятие. Большая хищная змея – родовое понятие. Обычно обвивающая свою жертву при нападении – видовое отличие.
</span>
<span>Аттестат – официальный документ об окончании учебного заведения, о присвоении звания. Аттестат – видовое понятие. Официальный документ – родовое понятие. Об окончании учебного заведения, о присвоении звания – видовое отличие.
</span>
<span>Математика – наука, изучающая величины, количественные отношения и пространственные формы. Математика – видовое понятие. Наука – родовое понятие. Изучающая величины, количественные отношения и пространственные формы – видовое отличие.</span>
<em>// PascalABC.NET 3.2, сборка 1381 от 04.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
(var a,var g):=(1.45,0.2);
var x:=Ln(a+1/a);
var y:=sin(x+a)*(1+Sqr(x+a))/(g*Sin(a));
Writeln('x=',x,', y=',y)
end.
<u>Результат</u>
x=0.760644681664142, y=23.7854781268528