profile
Опубликовано 5 лет назад по предмету Информатика от Anastacia1998

PASCAL
Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, оканчивающихся на 5. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 5.Количество чисел не превышает 100. Введённые числа по модулю 
не превышают 300.
Программа должна вывести одно число: сумму чисел, оканчивающихся на 5. 

  1. Ответ
    Ответ дан Sky09
    uses crt;
    var sum,k,i:integer;
    begin
         readln(k);
         writeln;
         sum:=0;
         repeat
               read(i);
               if (i>0) and (i mod 10=5) then sum:=sum+i;
               k:=k-1;
         until k=0;
         writeln(sum);
    end.

    ----
    Так как последовательность натуральных чисел, я ввела условие i>0 для суммы. Если подразумевается, что вводятся только положительные числа, это условие можно убрать.
Самые новые вопросы