Вычислить сумму ряда

05.03.2013, 16:46. **Показов** 1146. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Школьная задачки.

условие только одно , у проверяющего как он выражается "линуксойдный" паскаль( паскаль на линуксе).

1.Вычислить сумму ряда S=1+1/2+1/3+1/4+..........+1/50

2. по возможности если у вас есть время.

Последовательно вводится N целых чисел. Найдите сумму всех веденых положительных
Зарание низкий поклон.

@Paster Fob · 05.03.2013, 17:42

1.

Pascal

var
  s:extended;
  i:byte;
 
begin
  s:=0;
  for i:=1 to 50 do
    s:=s+1/i;
  writeln('summa=',s:2:2);
  readln
end.

2.

Pascal

var
  s,n:integer;
  i:byte;
 
begin
  write('vvedite kol-vo chisel : ');
  readln(n);
  s:=0;
  writeln('vvedite chisla');
  for i:=1 to n do begin
    readln(n);
    if n>0 then s:=s+n;
  end;
  writeln('summa=',s);
  readln;
end.

asloo
		1
	Вычислить сумму ряда 05.03.2013, 16:46. Показов 1146. Ответов 1 Метки нет (Все метки) Школьная задачки. условие только одно , у проверяющего как он выражается "линуксойдный" паскаль( паскаль на линуксе). 1.Вычислить сумму ряда S=1+1/2+1/3+1/4+..........+1/50 2. по возможности если у вас есть время. Последовательно вводится N целых чисел. Найдите сумму всех веденых положительных Зарание низкий поклон.

	05.03.2013, 17:42

Вычислить сумму ряда

Решение