Вопрос по информатике:
Введите n количество чисел чтоб считала только сумму нечетных чисел а счетных не считала сделайте без массива
Сделайте в паскале
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 04.09.2017 21:55
- Информатика
- remove_red_eye 19187
- thumb_up 11
Ответы и объяснения 2
Var
i, a, n, sum: integer;
begin
write('Кол-во чисел = ');
readln(n);
for i:=1 to n do begin
readln(a);
if a mod 2 0 then sum:= sum + a;
end;
writeln('Сумма нечетных = ',sum);
end.
- 05.09.2017 10:03
- thumb_up 29
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var a,n,i,s:integer;
begin
write('Число элементов последовательности ');
readln(n);
for i:=1 to n do begin
write(i,' элемент последовательности = ');readln(a);
if (a mod 2 0) then s:=s+a;
end;
writeln('Сумма нечетных = ',s);
end.
Тестовое решение:
Число элементов последовательности 5
1 элемент последовательности = 3
2 элемент последовательности = 2
3 элемент последовательности = 4
4 элемент последовательности = 1
5 элемент последовательности = 5
Сумма нечетных = 9
- 06.09.2017 05:27
- thumb_up 23
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.