Напишите задачу для обработки натурального числа в паскале

Question

Напишите задачу для обработки натурального числа в паскале

Comments

для обработки натурального числа в условном цикле

---

ну блин у меня написано алгоритм обработки натурального числе в условном цикле

---

:)

Answer 1

Var
  i: real; //Натуральное число
begin
  readln(i); //Считал число
  while (i > 5) do //В условном цикле...
    i := i / pi; //...преобразовал число
  writeln(i); //Вывел число
end.