• Задача на циклы с предусловием в паскале

    Дано 2 произвольных чилсла X.Y найти среднее арифметическое факториалов для этих чисел

     Помогите пожалуйста

     

Ответы 1

  • program test;var x: integer;var y: integer;var factSred : real;Function fact(arg:integer) : integer;var i: integer;var r: integer;Begin i:=1; r:=1; while i<=arg dobegin r := r*i; i := i + 1;end;fact := r;End;begin readln(x); readln(y);factSred:=(fact(x)+fact(y))/2; writeln(factSred:0:2);end.

    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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