Вопрос по информатике:
Найдите произведение чётную чисел от 16. пока чисел не станет 10.
языком паскаля пожалуйста
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 07.09.2015 10:18
- Информатика
- remove_red_eye 5618
- thumb_up 49
Ответы и объяснения 2
//Версия 3.3, сборка 1611 (06.01.2018)
begin
Println(Range(16,34,2).Aggregate(biginteger(1),(a,b)->a*b));
end.
Результат:
72266652057600
- 08.09.2015 08:31
- thumb_up 13
i,k:integer;
p:real;
begin
i:=16; k:=1; p:=i;
while k10 do begin
i:=i+2; k:=k+1; p:=p*i
end;
Writeln(p)
end.
Результат
72266652057600
- 09.09.2015 22:14
- thumb_up 17
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.