Предмет: Информатика,
автор: Anastacia1998
PASCAL
Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, оканчивающихся на 5. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 5.Количество чисел не превышает 100. Введённые числа по модулю
не превышают 300.Программа должна вывести одно число: сумму чисел, оканчивающихся на 5.
Ответы
Автор ответа:
0
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 для суммы. Если подразумевается, что вводятся только положительные числа, это условие можно убрать.
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 для суммы. Если подразумевается, что вводятся только положительные числа, это условие можно убрать.
Интересные вопросы
Предмет: Физкультура и спорт,
автор: melissaleskenova
Предмет: Английский язык,
автор: Аноним
Предмет: Алгебра,
автор: malaya3291
Предмет: Биология,
автор: bebekaforever
Предмет: Математика,
автор: 630218237