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

Есть ответ
20.12.2022
211

Ответ


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.

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


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
20.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.