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. Вычислить