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

@vil20 · Регистрация: 21.12.2015

Студворк — интернет-сервис помощи студентам

Дан список из n целых неотрицательных чисел А1,А2,...,Аn. Найти: а) (А1+А2)*(А2+А3).....(Аn-1 + An);
б) (A1A2)modA3 + (A2A3)modA4 +.....+ (An-2An-1)modAn.

@JokeR.BY · 18.05.2016, 18:40

Pascal

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.

@vil20 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

Опции темы

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

Решение