Опубликовано 03.01.2018 по предмету Информатика от Гость

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

Ответ оставил Гость

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 для суммы. Если подразумевается, что вводятся только положительные числа, это условие можно убрать.

Не нашел нужный ответ?

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.


Найти другие ответы
Самые новые вопросы