Задание:
Задача на циклы с предусловием в паскале Дано 2 произвольных чилсла X.Y найти среднее арифметическое факториалов для этих чисел Помогитепожалуйста
Решение:
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.
Знаете другой ответ?