Пожаловаться
- 05.04.2018 18:55
- Информатика
- remove_red_eye 12283
- thumb_up 50
Ответы и объяснения 1
var n,n1,i: integer;
begin
write('N = '); readln(n);
if n mod 2=0 then i:=2
else i:=1;
n1:=1;
repeat
n1:=n1*i;
i:=i+2;
until i>n;
writeln('N1 = ',n1);
end.
N = 6N1 = 48
N = 5N1 = 15
Пожаловаться
- 06.04.2018 18:11
- thumb_up 37
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы