Вопрос по информатике:
Pascal. Geany пожалуйста
Найти сумму и произведение четных чисел от a до n (a<n)
- 07.07.2018 14:26
- Информатика
- remove_red_eye 19990
- thumb_up 32
Ответы и объяснения 1
Program z;
Uses crt;
Var a,n,i,sum, pro:integer;
Begin
Sum:=0;
Pro:=1;
Writeln ('введите число a'); read (a);
Writeln('введите число n(>a)'); read (n);
For i:= a to n do
Begin
If odd(i) then
Begin
Sum:= sum+i;
Pro:= pro*i;
End;
End;
Writeln('sum=', sum);
Writeln('pro=', pro);
End.
- 08.07.2018 14:14
- thumb_up 40
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.