Задачу с факториалом решить с использованием цикла - Turbo Pascal

Формулировка задачи:

Нужно: "Решить задачу с помощью цикла. При реализации данной задачи используются операторы for."

Код к задаче: «Задачу с факториалом решить с использованием цикла - Turbo Pascal»

textual
const x=0.25;
var
  s,r:real;
  k:integer;
begin
  s:=1/2;r:=1.0;
  for k:=1 to 16 do begin
    r:=r*(x-1)/k;
    s:=s+r/2;
  end;
  writeln(s:0:6);
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

13   голосов, оценка 4.154 из 5


СОХРАНИТЬ ССЫЛКУ