• Напишите программу, которая вычисляет сумму:
    а) первых n натуральных чисел;
    б) квадратов первых n натуральных чисел;

Ответы 2

  • a) begin write(seqgen(readinteger(), x -> x + 1, 0).Sum); end.б) begin write(seqgen(readinteger(), x -> x * x, 1).Sum); end.
    • Автор:

      anne38
    • 5 лет назад
    • 0
  • Var n:integer;    S:real;BeginWrite('n = ');ReadLn(n);S:=0;For n:= 1 to n do    S:=S+n;WriteLn('а) S = ',S);S:=0;For n:= 1 to n do    S:=S+n*n;WriteLn('б) S = ',S);End.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years