profile
Опубликовано 5 лет назад по предмету Информатика от kirill36reg19

Может кто написать программу для решения на паскале? ​

  1. Ответ
    Ответ дан HeTempl

    (На фото всё более понятно и в цвете)


    Пояснение:

    1)вводится переменная n. nдолжна быть четной. Чтобы n не была введена не четной используется repeat для запроса n, пока она не будет введена чётной.

    2)идёт цикл от 1 до n. Каждый раз он просит ввести a i-тое, которое каждый раз записывается по-новой в переменную g. Далее она используется для изменения значения b и c.

    3)выводится ответ, где b делим на c.

    b-делимое, то есть "-a1-a3-...-a(n-1)"

    c-делитель, то есть "а2+а4...+аn"


    Код для копирования:



    program school5;

    Var i, n:integer;

    b, c, g:real;

    begin

    Repeat

    Write('Введите n (n-чётное)>> ');

    ReadLn(n);

    Until n mod 2 = 0;

    For i:=1 to n do

    Begin

    Write('Введите a', i, '>> ');

    ReadLn(g);

    If i mod 2 <> 0 then

    b:=b-g

    Else c:=c+g;

    End;

    Write('ответ: ', b/c);

    end.

    1. Ответ
      Ответ дан HeTempl
      Исправил в решение
    2. Ответ
      Ответ дан HeTempl
      Пояснение не требуется?
    3. Ответ
      Ответ дан kirill36reg19
      спасибо, ну если не трудно то можно.
    4. Ответ
      Ответ дан HeTempl
      Сделал
    5. Ответ
      Ответ дан kirill36reg19
      огромное спасибо
Самые новые вопросы