Регистрация
NikoYuqa1
12.06.2023 04:20
Информатика
Есть ответ 👍

Переглянути ВІДЕО( § 16. Вправа 3. Сума додатних елементів таблиці (Lazarus) | 9 клас | Морзе ) (Знаходження суми додатних елементів масиву) - адаптувати для одновимірного масиву (завдання виконати на листочку або в середовищі програмування).

247
412
Посмотреть ответы 1

Ответы на вопрос:

КБД2006
КБД2006
4,4(34 оценок)

var  

    n: integer;

    i: integer;

    sum: integer;

    result: integer;

begin

    writeln('введите значение n: ');

    readln(n);

   

    sum : = 0;     result : = 1;

    for i : = 1 to n do

    begin

        sum : = sum + i;

        result : = sum * result;

    end;

    writeln('конечное значение = ', result);

end.

Популярно: Информатика