• Найти сумму n первых нечётных натуральных чисел.(Паскаль)

Ответы 2

  • Спасибо огромное)))
    • Автор:

      rocky
    • 6 лет назад
    • 0
  • Var  n,i,a:integer;Begin  Write('Введите число ');  Readln(n);  if n>=1 then Begin write('Сумма нечётных чисел от 1 до ',n,' = ');                              for i:= 1 to n do                                if ((i mod 2) <> 0) then a:=a+i;                              write(a);                    End else write('Введено число меньше единицы');End.
    • Автор:

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

Войти через Google

или

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

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

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