Задание:
Вася перемножил все натуральные числа до своего возраста. Определите возраст Васи. Например, если значение равно 120, то Васе 5 лет, т. К 1*2*3*4*5=120.Pascal, Turbo Pascal
Решение:
Var n, i, p: integer; beginreadln (n); p: =1; i: =2; while p < n do beginp: =p*i; i: =i+1; end; if p=n thenwriteln (i — 1) else writeln ('вася ошибся'); end.
Знаете другой ответ?