Найти сумму чисел, оканчивающихся на 9 (Паскаль):
дана последовательность из N чисел, количество чисел вводится с клавиатуры. Числа выбираются из промежутка [ 10; 50 ] .
дана последовательность из N чисел, количество чисел вводится с клавиатуры. Числа выбираются из промежутка [ 10; 50 ] .
More Questions From This User See All
Answers & Comments
var i,M,K,N:integer;
begin
Readln(N);
K:=0;
for i:=1 to N do
begin
readln(M);
if M mod 10 = 9
then
begin
K:=K + M;
end;
end;
write(K);
end.