Версия для печати темы

Автор: Принц-Дастан 12.11.2011 15:31

Написать программу, которая будет считывать значения n, потом вычислять две суммы: суму первых n парных чисел и сумму первых n непарных чисел.
Например, если n=3, то должна быть вычислена сумма первых 3-х парных чисел, 2+4+6=12, и сумма первых трех непарных чисел, 1+3+5=9.
Проверить полученное значение суммы парных чисел можна за формулой n(n+1), а значения суммы непарных чисел — за формулой n*n.

Автор: Lapp 12.11.2011 15:46

Цитата(Принц-Дастан @ 12.11.2011 12:31)

  s1:= 0;
  s2:= 0;
  for i:=1 to n do begin
    s1:= s1+2*i-1;   // odd
    s2:= s2+2*i;     // even
  end;

Автор: Принц-Дастан 12.11.2011 15:59

Program abc;

var
s1,s2:real;
i,n:integer;

Begin
writeln('n');
readln(n);
s1:= 0;
s2:= 0;
for i:=1 to n do
begin
s1:= s1+2*i-1;
// odd;
s2:= s2+2*i; // even;
end;
end.

Выдает ошибку 57: Ошибка в выражении или ожидается символ ";"... Что делать?

Автор: Гость 12.11.2011 17:47

На какой строчке ошибка?

Автор: Lapp 13.11.2011 15:10

Цитата(Принц-Дастан @ 12.11.2011 12:59)