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

Определите кол-во четных значений последовательности оканчивающегося на 0, очень срочно нужна написанная программа.

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

Если числа чётные и оканчиваются на 0, то значит они нацело делятся на 10. Следовательно определить их можно по остатку от деления на 10 (x mod 10):

<задаёте свою последовательность в массив myarray[]>
begin
   for var i:=0 to length(myarray)-1 do if (myarray[i] mod 10)=0 then summa:=summa+1;
   writeln(Vsego chisel: ,summa);
end;