Определить процедуру, позволяющую распознавать степень пятерки. - Pascal ABC

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

Помогите, пожалуйста, с программой Даны натуральное число n, целые числа а1,…,аn (последовательности идущих подряд членов), состоящие из степеней пятерки. Определить процедуру, позволяющую распознавать степень пятерки. Программу оформить в виде диалога. Выход из программы – нажатием Esc.

Код к задаче: «Определить процедуру, позволяющую распознавать степень пятерки. - Pascal ABC»

textual
uses crt;
procedure stpn(x:integer; var st:real);
begin
st := ln(x)/ln(5);
end;
var n, a, i:integer;
st:real;
c:char;
begin
writeln('Введите число членов последовательности');
readln(n);
for i:=1 to  n do
    begin
    writeln('Введите член последовательности');
    readln(a);
    stpn(a,st);
    writeln('Показатель степени числа ',a,' по основанию 5 =', st);
    writeln('Для продолжения нажмите любую клавишу, для выхода нажмите Esc');
    while KeyPressed do c := ReadKey;
    c:=readkey;
    if c = #27 then exit;
    end;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

12   голосов, оценка 3.500 из 5


СДЕЛАЙТЕ РЕПОСТ