С! надо ввести ее в pascal дан ряд чисел. количество задается пользователем. найти кол-во четных чисел оканчивающих на 0 или 2 9 класс

var n,i,a,k: integer;

begin

write('введите количество чисел: ');

readln(n);

writeln;

for i: = 1 to n do

begin

write('введите число: ');

readln(a);

if ((a mod 2 = 0) and (a mod 10 = 0)) or ((a mod 2 = 0) and (a mod 10 = 2)) then k: =k+1

end;

writeln;

writeln('кол-во четных чисел оканчивающих на 0 или 2: ',k);

end.

#include < iostream> #include < cstring> #include < vector> #include < algorithm> struct studentdata {     std: : string name;     std: : string surname;     int math;     int phys;     int comp_science; }; bool comp(const studentdata & a, const studentdata & b) {     int tmp1 = a.math + a.phys + a.comp_science;     int tmp2 = b.math + b.phys + b.comp_science;     return tmp1 > tmp2 ? true : false; } int main(void) {     int n;     std: : cin > > n;     std: : vector< studentdata > data(n);     for (int i = 0; i < n; i++) {         std: : cin > > data[i].name > > data[i].surname;         std: : cin > > data[i].math > > data[i].phys > > data[i].comp_science;     }     std: : sort(data. data. comp);     for (int i = 0; i < n; i++) {         std: : cout < < data[i].name < < " " < < data[i].surname < < std: : endl;     }     return 0; }