-17 = 1 0010001
Первая единица - знак числа"-"
Uses crt;
var n,sum,i:integer;
begin
read(n);
while n>0 do
begin
if ((n mod 10) mod 2=0) and (n mod 10<8) then
sum:=sum+(n mod 10);
n:=n div 10;
end;
writeln(sum);
<span>end.</span>
//Pascal`ик
var
arr: array[0..4, 0..4] of integer;
begin
for var i:=0 to 4 do
for var j:=0 to 4 do arr[i, j]:=readinteger('Введите элемент ');
for var i:=0 to 4 do
for var j:=0 to 4 do if i=j then print (arr[i, j]);
end.
На языке С++:
int summ = 0;
for (i = 1; i <= 100; ++i)
{
if (i % 4 == 0) // т.е. если остаток от деления на 4 равен 0, то суммируем
{
summ = i + summ;
}
}