• Паскаль!Найти сумму не превышающую 50-ти квадратов натуральных чисел!!!!!

Ответы 1

  • сумма квадратов натуральных чисел до 50var    i: integer;    s := 0;begin    for i := 1 to 50 do        s := s + i * i;            writeln(s);end.сумма квадратов натуральных чисел ближайшая к 50var    s := 0;    i := 0;begin    repeat        s := s + i * i;        i := i + 1;            until s + i * i >= 50;        writeln(s);end.
  • Добавить свой ответ

Войти через Google

или

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

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

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