Вопрос по информатике:
Напишите пожалуйста программу
С клавиатуры вводится N целых чисел, Nтоже вводится с клавиатуры. Найти сумму нечетных, оканчивающихся на 7 или сообщить, что таких чисел в введенной последовательности нет
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 03.04.2018 07:49
- Информатика
- remove_red_eye 11630
- thumb_up 20
Ответы и объяснения 2
begin
write('n = ');
readln(n);
s:=0; f:=0;
for i:=1 to n do
begin
readln(a);
if abs(a) mod 10 = 7
then begin s:=s+a; f:=1; end;
end;
if f=1
then writeln('Сумма нечетных чисел, оканчивающихся на 7 = ',s)
else writeln('среди введенных чисел нет нечетных, оканчивающихся на 7');
end.
Пример:
n = 5
25
-17
71
68
27
Сумма нечетных чисел, оканчивающихся на 7 = 10
- 04.04.2018 07:11
- thumb_up 21
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger(ReadInteger).Where(m->abs(m) mod 10=7).ToArray;
if a.Length=0 then Writeln('Нет чисел, оканчивающихся на 7')
else Writeln('Сумма чисел, оканчивающихся на 7: ',a.Sum)
end.
Пример
5
16 37 3 7 -27
Сумма чисел, оканчивающихся на 7: 17
- 05.04.2018 16:49
- thumb_up 37
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.