Вычислить произведение

@lowness · Регистрация: 29.11.2022

Студворк — интернет-сервис помощи студентам

Вычислить произведение

Название: Снимок экрана 2023-02-25 145434.png
Просмотров: 52

Размер: 3.7 Кб

@Cyborg Drone · 28.02.2023, 14:05

Pascal

var
  k, n: integer;
  x, p: real;
begin
  write('n = ');
  readln(n);
  write('x = ');
  readln(x);
  p := 1;
  for k := 1 to n do p := p * (1 + sin(k * x)) / k;
  writeln('P = ', p);
  readln
end.

@lowness 0 / 0 / 0 Регистрация: 29.11.2022 Сообщений: 51
		1
	Вычислить произведение 25.02.2023, 10:54. Показов 377. Ответов 1 Метки pascal. 1 курс (Все метки) Вычислить произведение 0

Опции темы