• найти произведение всех натуральных чисел от 1 до 100 на языке pascal

Ответы 1

  • На турбо паскале невозможно сделать этого, т.к. идет переполнение возможного лимита данных(real, longint). В идеале это должно выглядеть так:var a:real;i:byte;begina:=1;for i:=1 to 100 do begina:=a*i;end;writeln(a);end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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