1)
var
s : real;
i, n : integer;
begin
s := 0;
read (n);
for i := 1 to n do s := s + 1 / i;
writeln (s);
end.
2)
var
a, i : integer;
begin
a := 1;
for i := 1 to 8 do
begin
a := a * 2;
writeln ('Через ', i * 3, 'часов будет ', a, ' амеб');
end;
end.
3)
var
n, i : integer;
x, s : real;
begin
s := 0;
read (n, x);
for i := 1 to n do
s := s + sin (i * x);
writeln (s);
end.
4)
var
n, a, r, i : integer;
begin
r := 1;
read (a, n);
for i := 1 to n do r := r * a;
writeln (r);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Построить граф классификации для описанной системы. согласно биологической классификации выделяют 3 империи (надцарства): археобактерии, эукариоты и прокариоты. к империи эукаритов относятся царства грибов, растений и животных. к царству животных относятся типы членистоногих, моллюсков, иглокожих, кишечнополостных, хордовых и др. к типу хордовых относятся классы рыб, амфибий, рептилий, млекопитающих, птиц. к классу млекопитающих относятся отряды китов, ластоногих, хищных, грызунов, копытных и др.. к отряду хищных относятся семейства медвежьих, енотовых, псовых, виверровых, кошачьих и др.. к семейству псовых относятся роды лисиц, енотовидных собак, собак, фенеков, песцов и др. к роду собак отнсятся виды собак , волков, шакалов, койотов. к виду собак относятся овчарки, спаниели, водолазы, сенбернары, доги, болонки и др.