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 r:integer;
begin
writeln('Введите радиус');
read(r);
writeln('Длина окружности = ',2*pi*r);
writeln('Площадь круга = ',pi*sqr(r));
end.
Задание №2
var a,d,n:integer;
begin
writeln('Введите первый член, знаменатель, число членов');
read(a,d,n);
writeln('Cумма членов арифметической прогресси = ', 0.5*n*(2*a+(n-1)*d));
end.
Задание №3
var m,n:integer;
begin
writeln('Введите m и n');
read(m,n);
if m=n then begin
m:=0;
n:=0;
end;
if (m>n) then n:=m
else if n>m then m:=n;
end.
Задание №4
var a,b,c:integer;
begin
writeln('Введите стороны a,b,c');
read(a,b,c);
if (a=b) or (b=c) or (c=a) then writeln('Треугольник равнобедренный')
else writeln('Треугольник неравнобедренный');
end.
Задание №5
var a,b,c:integer;
begin
a:=0;
c:=0;
repeat
writeln('Введите число');
read(b);
if b<0 then a:=a+1;
c:=c+1;
until c=3;
writeln('Количество отрицательных = ',a);
end.
Задание №6
var a,c:integer;
b:real;
begin
writeln('Введите количество часов');
read(a);
c:=a div 3;
b:=power(2, c);
writeln(b);
end.
Задание №7
const
n=10;
var a:array [1..10] of integer;
i,k,s:integer;
begin
writeln('Введите k');
read(k);
writeln('Введите элементы массива');
for i:=1 to n do begin
read(a[i]);
if a[i] mod k =0 then s:=s+a[i];
end;
writeln(s);
end.