• ПОМОГИТЕ РЕШИТЬ ИНФОРМАТИКУ ПОЖАЛУЙСТА!!!
    написать программу, которая вычислит сумму и произведения ряда натуральных чисел от 1 до n

Ответы 1

  • //PascalABC.NET 3.2 сборка 1318Var  a,i,s,p:integer;beginp:=1;  readln(a);  for i:=1 to a do    begin      s:=s+i;      p:=p*i;    end; writeln('Сумма:',s); writeln('Произведение:',p); end.
    • Автор:

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

Войти через Google

или

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

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

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