На­пи­ши­те про­грам­му, ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел...

Question

На­пи­ши­те про­грам­му, ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел опре­де­ля­ет сумму чисел, окан­чи­ва­ю­щих­ся на 3. Про­грам­ма по­лу­ча­ет на вход ко­ли­че­ство чисел в по­сле­до­ва­тель­но­сти, а затем сами числа. В по­сле­до­ва­тель­но­сти все­гда име­ет­ся число, окан­чи­ва­ю­ще­е­ся на 3. Ко­ли­че­ство чисел не пре­вы­ша­ет 100.
При­мер ра­бо­ты про­грам­мы: Вход­ные дан­ные 3 13 23 24 Выходные данные 36

Answer 1

Var i, n, sum, temp: integer;
begin
readln(n);
sum:=0;
for i:=1 to n do
begin
read(temp);
if (temp mod 10 = 3) then
inc(sum,temp);
end;
writeln(sum)
end.