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