Question

ДАЮ 100 БАЛЛОВ!!!!
Найти сумму чисел, которые оканчиваются на 9. Программа получает на вход количество чисел в последовательности, а затем сами числа.
Через паскаль

Answer 1

Ответ:

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.

Объяснение:

Answer 2

Ответ:

var i,k,a,s:integer;

begin

s:=0;

read(k);

for i:=1 to k do

begin

read(a);

if a mod 10 = 9 then s:=s+a

end;

write(s)

end.