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) lt;gt; 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 xlt;gt;2 do
begin
x += 0.5;
y:= -2.4*(x**2)+5*x-3;
if xlt;0
then
if frac(x) lt;gt; 0
then writeln(' ',x,' ',y:0:2,' ')
else writeln(' ',x,' ',y:0:2,' ')
else
if frac(x) lt;gt; 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
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.