Регистрация
Azadamurshaeva
24.09.2021 07:14
Информатика
Есть ответ 👍

Найдите сумму 1+1/2+1/+1/n(программа нужна для excel vba)

157
369
Посмотреть ответы 1

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

ABCD11111111
ABCD11111111
4,7(90 оценок)

program sd;

var i : integer;

    s : longint;

begin

s : = 1;

i : = 10;

repeat

    if (i mod 13 = 0) and (i mod 2 < > 0) then

      s : = s * i;

i: = i+1;

until i> 99;

writeln('proizvedenie = ',s);

end.

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