П Р О Г Р А М М А

 

program sum;

var i,n:integer; {счетчик и количество слагаемых}

s:real; {сумма ряда}

begin

writeln('Сколько слагаемых ?');

readln(n);

if n<=0 then

writeln('Плохое n')

else begin

s:=0;

for i:=1 to n do

if odd(i) then {проверка четности номера}

s:=s+i

else

s:=s-i;

writeln('s=',s:10:3);

end;

end.

 

Упражнения:

1. Вычислить

2. Вычислить

3. Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр.

4. Напечатать в возрастающем порядке все трехзначные числа, сумма цифр которого равна заданному числу n (n=9)

5. Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых все одинаковые цифры.

6. Определить, является ли заданное число совершенным, т.е. равным сумме всех своих (положительных) делителей, кроме самого этого числа (например, число 6- совершенно: 6=1+2+3).

7. Дано целое n>2. Напечатать все простые числа из диапазона [2,n].

8. Вычислить

9. Вычислить

10. Вычислить