(х-1)(х-3)(х-7)х..х(х-63)/(х-2)(х-4)(х-8)х...х(х-64) составить программу в турбо паскале

13 Июн 2021 в 19:47
142 +1
0
Ответы
1

var x, result: real;
begin
result := 1;

for x := 1 to 63 do
begin
result := result * x;
end;

writeln('Результат выражения: ', result);
end.

17 Апр 2024 в 16:36
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир