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.
var b,v,d,g,d1,d2:real;
begin
writeln('Б руб: ');
readln(b);
writeln('В руб: ');
readln(v);
writeln('Д руб: ');
readln(d);
writeln('Г руб: ');
readln(g);
if (3*b + 6*v) > (5*d + 4*g) then begin
writeln('1 девочка заплатила больше');
d1:=3*b+6*v;
d2:=5*d+4*g;
end
else
if (5*d + 4*g) > (3*b + 6*v) then begin
writeln('2 девочка заплатила больше');
d1:=3*b+6*v;
d2:=5*d+4*g;
end
else if (5*d + 4*g) = (3*b + 6*v) then begin
d1:=3*b+6*v;
d2:=5*d+4*g;
writeln('девочки заплатили одинаково');
end;
writeln;
writeln('1 девочка: ',d1,' руб');
writeln('2 девочка: ',d2,' руб');
end.