раз три части, значит делением на три
3: 81
3:27
3:9
3:3.
На каждую получается по два взвешивания. и исходя из этого находим ответ - 8
Ответ:
program CountNum;
uses
SysUtils;
var
n, i, c: Integer;
s: string;
begin
Write ('Введите N: ');
ReadLn (n);
s := IntToStr (n);
c := 0;
for i := 1 to Length (s) do begin
if StrToInt (s [i]) mod 2 = 0 then
Inc (c);
end;
WriteLn ('Количество четных цифр = ', c);
ReadLn;
end.
640*512=327,680
327,680*256=83,886,080
83,886,080 / 8 = 10,485,760
10,485,760 /1024=10,240
10,240/1024=10
ответ: 10 Кб
Я думаю а) у нас иныорматика вчера на эту тему была )