Регистрация
TemChik2007
19.07.2021 05:04
Информатика
Есть ответ 👍

составить на Паскале: 1) программу для вычисления суммы ряда S=1+ 1/2+1/3+1/4+..+1/N. Число N вводится с клавиатуры.

140
301
Посмотреть ответы 2

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

marat20172003
marat20172003
4,8(63 оценок)

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.

Объяснение:

Милан228
Милан228
4,6(58 оценок)
Var     a: array [1..5] of integer : = (2,6,8,12,18);     sum: integer : = 0; begin writeln('элементы массива a: '); for var i: =1 to an do   write(a[i],' ');   sum = sum + a[i]; writeln; writeln('сумма элементов: ', sum); end.

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