Произведение всех четных чисел

Ответ или решение 1

// Пример программы на языке Паскаль.

var
i : integer; // объявляем переменную целочисленного типа.

p : real; // объявляем переменную вещественного типа.
begin
p := 1; // нужно, для того чтобы произведение не равнялось 0.
for i := 1 to 50 do // начало цикла.
begin
if (i mod 2 = 0) then // проверяем является ли текущее число четным.
begin
p := p * i; // считаем произведение четных чисел.
end;
end;
writeln(‘Произведение четных чисел в диапазоне от 1 до 50 равно: ‘, p); // вывод результата.
end.

не похоже на правильный ответ

8.91750643294582E76 — не похоже на правильный ответ))

а как сделать чтобы вывело по другому? это возможно?

а как сделать чтобы вывело по другому?

Если не понимаете, то : 8.91750643294582E76 = 8.91750643294582*10^76

for i:=1 to 50 do begin

P.s. Программа написана на языке PascalABC, странный ответ она выдает потому, что в данном языке есть ограничения, и число, которое получается, выходит за диапазон данного значения.

Если ответ по предмету Экономика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.

Читайте также:  Devexpress xtragrid views grid