М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
axon11kot
axon11kot
08.01.2021 17:39 •  Информатика

Как называется список заголовков документа *



Оглавление

Список литературы

Ссылка

Сноска

Предложение

👇
Ответ:
ElyalyaЗ
ElyalyaЗ
08.01.2021

ответ:Оглавление

Объяснение:

4,4(50 оценок)
Открыть все ответы
Ответ:
Podoplel
Podoplel
08.01.2021
Var
    i, n: integer;
    a, s, e: real;

function Factorial(n: integer): longint;
var
    f, i: longint;
begin
    f := 1;
    for i := 1 to n do
        f := f * i;
    Factorial := f;
end;

function Power(x: real; n: integer): real;
var
    i: integer;
    p: real;
begin
    p := 1;
    for i := 1 to n do
        p := p * x;
    Power := p;
end;

begin
    readln(e, n);
    
    s := 0;
    for i := 1 to n do
    begin
        a := Factorial(n) / Power(n, n);
        if abs(a) < e then
            s := s + a;
    end;
    
    writeln(s);
end.
4,6(69 оценок)
Ответ:
Zipchik
Zipchik
08.01.2021
Var
    a: array[1..10]of integer;
    i, k, n: integer;

begin
    Writeln('Исходный массив:');
    Randomize;
    for i := 1 to 10 do
    begin
        a[i] := Random(51) - 25;
        Write(a[i], ' ');
    end;
    Writeln;
    
    n := 0;
    k := 0;
    for i := 10 downto 1 do
        if a[i] > 0 then
        begin
            k := k + 1;
            if k = 2 then n := i;
        end;
    
    if k = 0 then
        Writeln('В массиве нет положительных элементов!')
    else
        Writeln('Предпоследний положительный элемент: a[', n, '] = ', a[n]);
    
    Readln;
end.
4,6(68 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ