var i,j,k,s:integer;
Begin
writeln('введите 5 чисел:');
for i:=1 to 5 do begin
readln(k);
j:=k mod 10;
if j=3 then s:=s+k;
end;
writeln('Сумма чисел оканчивающихся на 3=',s);
end.
если Паскаль то можно так
var i,j,k,s:integer;
Begin
writeln('введите 5 чисел:');
for i:=1 to 5 do begin
readln(k);
j:=k mod 10;
if j=3 then s:=s+k;
end;
writeln('Сумма чисел оканчивающихся на 3=',s);
end.
если Паскаль то можно так