Задание:
Задача номер 1 напечатать сумму элементов кратных одновременно двум или трем числового ряда 3, 6, 9, 2, 12, 2, 24 и задача 2 составить программу вычислениячислового ряда для известного числа ряда N. Y=(1-2/5)+(2+4/10)+(3-8/15)+(4+16/20)+…
Решение:
program zadacha2; uses crt; var i,n,a: integer; b,y,c,l: real; beginclrscr; readln (n); a: =1; b: =2; c: =5; for i: =1 to n do begin if a mod 2=0 thenl: =a+b/celse l: =a-b/c; a: =a+1; b: =b+2; c: =c+5; y: =y+l; end; writeln (y: 2:2); readkey; end. Первую по подробней расспишите
Знаете другой ответ?