Информатика, опубликовано 2018-08-22 22:48:47 by Гость

Написать программу для pascаl: вычислить произведение всех четных чисел от 50 до 100

Ответ оставил Гость

Var
i:integer;
p:biginteger;
begin
p := 1;
for i := 50 to 100 do
if i mod 2 = 0 then p := p * i;
writeln(p);
end.

Тестовое решение:
3289645422013119007424590987918048021708800000000

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.