Сделайте 3 задачки на паскале :

Сделайте 3 задачки на паскале :

Задать свой вопрос
1 ответ

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

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт