<span>1024мб+512мб+341мб 1/3кб+170мб 2/3кб = 2048мб или 2гб</span>
уборка мусора во дворе; перевозка пассажиров; выдача заработной платы; прием экзаменов; сдача экзаменов; обучение детей в школе
Дворник
Водитель (трамвая например)
Бухгалтер
Экзаменатор
Студент/Ученик
Преподаватель
Ответ:
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.
0110100112 = 0∙28+1∙27+1∙26+0∙25+1∙24+0∙23+0∙22+1∙21+1∙20 = 0+128+64+0+16+0+0+2+1 = 21110