Информатика, опубликовано 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
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на