F=cos(1+cos(2+.+cos(49+cos(50).) через while и repeat - PascalABC.NET

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

Вычислить f=cos(1+cos(2+...+cos(49+cos(50))..)) двумя способами, через while и repeat

Решение задачи: «F=cos(1+cos(2+.+cos(49+cos(50).) через while и repeat»

Листинг программы

var
  i, n: integer;
  s: real;
 
begin
  
  write('Циклом while: ');
  s := 0; i := 50;
  while i > 0 do
  begin
    s := cos(i + s);
    dec(i);
  end;
  writeln(s);
  
  write('Циклом repeat: '); 
  s := 0; i := 50;
  repeat
    s := cos(i + s);
    dec(i);
  until i = 0;
  writeln(s);
end.

Объяснение кода листинга программы

Объявлены переменные: i, n (индекс, количество итераций), s (накопитель).
Выводится сообщение Циклом while: и начинается цикл while.
В каждой итерации цикла значение переменной s заменяется на результат функции cos(i + s), где i - это число от 50 до 0 с шагом -1, а s - это накопленный результат.
После окончания цикла выводится значение переменной s.
Выводится сообщение Циклом repeat: и начинается цикл repeat.
В каждой итерации цикла значение переменной s заменяется на результат функции cos(i + s), где i - это число от 50 до 0 с шагом -1, а s - это накопленный результат.
Цикл повторяется до тех пор, пока i не станет равным 0.
После окончания цикла выводится значение переменной s.