Вопрос от посетителя:
задача номер 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;
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.
Первую по подробней расспишите