2.
program raf105;
var n,sum,i:integer;
begin
writeln('Вычисление частичной суммы ряда: 1,3,5,7,...');
write('Введите количество суммируемых членов ряда: ');
readln(n);
for i:=1 to n*2 do
if (i mod 2) <> 0
then sum += i;
writeln('Сумма первых ',n,' членов ряда равна: ',sum);
end.
3.
program raf105;
var x,y:real;
begin
writeln('----------------');
writeln(' x | y');
writeln('----------------');
x:= -2.5;
while x<>2 do
begin
x += 0.5;
y:= -2.4*(x**2)+5*x-3;
if x
then
if frac(x) <> 0
then writeln(' ',x,' | ',y:0:2,' ')
else writeln(' ',x,' | ',y:0:2,' ')
else
if frac(x) <> 0
then writeln(' ',x,' | ',y:0:2,' ')
else writeln(' ',x,' | ',y:0:2,' ');
end;
end.
4.
program raf105;
var x,sum:real;
a,b,c,n,i:integer;
begin
write('Введите кол-во слагаемых: ');
readln(n);
a:= 1;
b:= 2;
c:= 3;
for i:=1 to n do
begin
x:= 1/(a*b*c);
sum += x;
a += 1;
b += 1;
c += 1;
end;
writeln('Сумма: ',sum);
writeln('Округлённая до сотых сумма: ',sum:0:2);
end.
Язык программирования PascalABC