Задача на циклы с предусловием в паскале Дано 2 произвольных чилсла…

Question

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

Answer 1

50

voodra

04 сентября 2022

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: