Напишите программу, которая в последовательности целых чисел находит сумму четных чисел в диапазоне от 5 до 25. программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введенные числа по модулю не превышают 30000. программа должна вывести одно число: сумму четных чисел в диапазоне от 5 до 25. входные данные : 4, 16, 17, 26,0 выходные данные: 16

dog126 dog126    3   21.05.2019 03:10    7

Ответы
giyosjjj giyosjjj  14.06.2020 23:36

Program Summa;

Uses Crt;

var s,n,c:integer;

 

 begin

   clrscr;

   write('Введите числа коннц ввода 0: ');

    s:=0;c:=0; 

    repeat

        readln(n);

        c:=c+1; 

if (n mod 2)=0 then
      if ((n>=5)and (n<=25)) then s:=s+n;        

  until (n=0) or (c=1000) ;    

write('Сумма ',c,' чётных чисел в диапазоне от 5 до 25:',s);

   readkey;

 

end. 

 

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика