Категория - Информатика Автор - viktoriaivut9 6 лет назад СРОЧНО, ИНФОРМАТИКА!ПАСКАЛЬ, 8 КЛАСС. Нужно составить программу,которая запрашивает целое число А < 5 и находит наименьшее натуральное n, при котором A^n >= 50. n вывести на экран.
Категория - Информатика Автор - viktoriaivut9 6 лет назад СРОЧНО, ИНФОРМАТИКА!ПАСКАЛЬ, 8 КЛАСС. Нужно составить программу,которая запрашивает целое число А < 5 и находит наименьшее натуральное n, при котором A^n >= 50. n вывести на экран.
Ответ Автор - lbvf23 Var a, n:integer;Begin Write('Введите число меньше пяти') ;read(A) ; N:=0; While exp(ln(A) *n) <50 do begin N:=n+1; End; Write('N=', n) ; End.