Регистрация
jefimmalinovski
12.09.2021 00:54
Информатика
Есть ответ 👍

Составить на паскале: 1) программу для вычисления суммы ряда s=1+ 1/2+1/3+1/4+..+1/n. число n вводится с клавиатуры. 2) одноклеточная амеба каждые 3 часа делиться на 2 клетки. определить, сколько амеб будет через 3,6,9,12 и 24 часа. 3) дано натуральное числоо n и действительное число х. вычислить сумму ряда sin(x)+sin(2x)+sin(3x)++sin(nx). 4) написать программу для вычисления n-ой степени числа а. , )

156
410
Посмотреть ответы 2

Ответы на вопрос:

ДЖАН4848548
ДЖАН4848548
4,8(43 оценок)

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.

Karina1155
Karina1155
4,5(94 оценок)
Приложения.  например: winrar, word и другие текстовые редакторы, игры. 

Популярно: Информатика