0 / 0 / 0
Регистрация: 21.12.2015
Сообщений: 25
1

Вычислить значение выражения

17.05.2016, 13:32. Показов 920. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дан список из n целых неотрицательных чисел А1,А2,...,Аn. Найти: а) (А1+А2)*(А2+А3).....(Аn-1 + An);
б) (A1A2)modA3 + (A2A3)modA4 +.....+ (An-2An-1)modAn.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.05.2016, 13:32
Ответы с готовыми решениями:

Вычислить значение выражения
Составьте программу вычисления значения z=max(min(a,b), max(c,d)). Значения a,b,c,d задаются вводом...

Вычислить значение выражения
Составить программу для вычисления значения выражения: Входные данные – х (вводится с клавиатуры)....

Вычислить значение выражения
Вычислить сумму x =∑_(k=1)^(i+5)▒〖F(k)〗 и произведение y=∏_(k=1)^(i+5)▒〖F(k)〗 . Вычислить...

Вычислить значение выражения
Кто знает помогите пожалуста, решит нужно с использованием функии.

1
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
18.05.2016, 18:40 2
Лучший ответ Сообщение было отмечено vil20 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
var
    a: Array[Byte] Of LongWord;
    n, i: Byte;
    zadA: Extended; //Double|Real
    zadB: LongWord;
begin
    {Генерация списка целых неотрицательных}
    Randomize();
    repeat
        Write('Input n=');
        ReadLn(n);
    until (n > 0);
    Write('Array A:');
    for i := 0 to n - 1 do
    begin
        a[i] := Random(100);
        Write(a[i]:3);
    end;
    WriteLn;
    {Задание А}
    zadA := 1;
    for i := 0 to n - 2 do
        zadA := zadA * (a[i] + a[i + 1]);
    WriteLn('ZadA=', zadA:0:0);
    {Задание Б}
    zadB := 0;
    for i := 1 to n - 2 do
        Inc(zadB, (a[i - 1] * a[i]) mod a[i + 1]);
    Write('ZadB=', zadB:0);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.05.2016, 18:40
Помогаю со студенческими работами здесь

Вычислить значение выражения
ПООООЖАЛУЙСТА ПОМОГИТЕ!!!! ОЧЕНЬ ПРОШУ!! СПАСИБО!!! Дано x,y. Составить программу вычисления a...

Вычислить значение выражения
если мона побыстрее, а то спешка а у меня заавал(( буду очень благодарен

Вычислить значение выражения
задание в worde

Вычислить значение выражения
Заранее спасибо! y=\frac{2 - x}{3{e}^{\left|x \right|-1}} - \sqrt{{x}^{2}}

Вычислить значение выражения
Заранее спасибо! y=\frac{7-x}{{5x}^{{\sin}^{2}\left(x \right)}}

Вычислить значение выражения
___cos b, если b\<0 br x, если tg b>3 X{ где b{ ___ln b, если b>0 ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru