Блок-схема дана во вложении
(Bin(1001)+25)/Bin(10) = bin: 0001 0001
т.е.2
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write(abs(ReadInteger('n=')).ToString.Select(x->x.ToDigit).Where(t->t.IsEven).Count);
end.
Написал на паскале
const N = 12;
var i, sum:integer;
average:real;
A:array[1..N] of integer;
begin
for i:=1 to N do begin
A[i]:=random(101);
sum:=A[i]+sum;
write(A[i], ' ');
end;
writeln();
average:=sum/N;
for i:=1 to N do begin
if A[i] > average then
writeln(A[i]);
end;
end.
На один символ отводится 1 байт
30 строк по 70 символов - 2100 символов
5 страниц-это 10500 символов
так что ответ 10500 байт