var x, L, M: integer;
begin
readln(x);
L := 0;
M := 0;
while x > 0 do
begin
L := L + 1;
if x mod 2 = 0 then
M := M + (x mod 10) div 2;
x := x div 10;
end;
writeln(L);
writeln(M);
end.
Прости,но это наверно глупый вопрос а ты в каком классе?
2^3 - 1 байт
2^13 -1 КБ
2^23 - 1 MB
2^33 -1 GB
1024MB/1.44MB = 712
Алгори́тм — набор инструкций, описывающих порядок действий исполнителя для достижения некоторого результата.