даю! 1: Ознакомьтесь с материалами презентации к параграфу, содержащейся в электронном приложении к - id1067187720210329 от san31032009 29.03.2021 00:06

Question

Информатика: даю! 1: Ознакомьтесь с материалами презентации к параграфу, содержащейся в электронном приложении к учебнику. Какими слайдами вы могли бы дополнить презентацию? 2: Может ли массив одновременно содержать целые и вещественные значения? 3: Для чего необходимо описание массива?

san31032009 · 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.введите символ с клавиатуры найдите сумму произведение и среднее арифметическое и среднее

MOGZ ответил