В пайтоне Составить программу, которая бы проводила расчет функции y, зависящей от x и k, выводила бы - id2139770220230303 от shayukalena 03.03.2023 22:17

Question

Информатика: В пайтоне Составить программу, которая бы проводила расчет функции y, зависящей от x и k, выводила бы значение y. Используйте модуль math

shayukalena · Accepted Answer

Var
    ax, bx:word;
    st, sa,sg:string;
    i,j, l:byte;


BEGIN
write('Введите целое положительноe число : ');
readln(st);

sa := '';
sg := '';
ax := 0;
bx := 1;
l := st.Length;
for i:=1 to l do begin
    j:=ord(st[i])-48;
    ax := ax + j;
    bx := bx * j;

    sa := sa+j+'+' ;
    sg := sg+j+'*';
end;
i := l*2-1;
sa := sa.Remove(i,1);
sg := sg.Remove(i,1);

writeln('Среднее арифметическое = (',sa,')/',l, '= ', ax / l );
writeln('Cреднее геометрическое = корень ',l ,' степени из (',sg,') = ', exp(ln(bx)/l));
END.

Св pascal.введите символ с клавиатуры найдите сумму произведение и среднее арифметическое и среднее

Св pascal.введите символ с клавиатуры найдите сумму произведение и среднее арифметическое и среднее

В пайтоне Составить программу, которая бы проводила расчет функции y, зависящей от x и k, выводила бы значение y. Используйте модуль math

MOGZ ответил