• Написать программу, которая вычисляет сумму первых n целых положительных четных чисел.

Ответы 1

  • Var n,i,k,s:integer;Begin write('n='); readln(n); s:=0; k:=0; i:=2; while k<n do   begin    s:=s+i;    k:=k+1;    i:=i+2;  end; writeln('s=',s);End.
    • Автор:

      cook
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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