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

задача номер 1 напечатать сумму элементов кратных одновременно двум или трем числового ряда 3, 6, 9, 2, 12, 2, 24 и задача 2 составить программу вычисления числового ряда для известного числа ряда N. Y=(1-2/5)+(2+4/10)+(3-8/15)+(4+16/20)+...

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

    program zadacha2;

     uses crt;

     var i,n,a:integer;

           b,y,c,l:real;

    begin

    clrscr;

    readln(n);

     a:=1;

     b:=2;

     c:=5;

     for i:=1 to n do                                              

                                                      begin  

    if a mod 2 = 0 then

    l:=a+b/c

    else      

    l:=a-b/c;

    a:=a+1;

    b:=b+2;

    c:=c+5;

    y:=y+l;

                                                       end;

    writeln(y:2:2);

    readkey;

     end.

    Первую по подробней расспишите

Самые новые вопросы