Ответ:
2048киллобайт в секунду для 2мб
Var t,n,m,s:integer;
begin
write('t (1,2,3) = ');
readln(t);
writeln('n, m:');
readln(n,m);
case t of
1: begin s:=25*n+70*m; writeln('Утренняя выручка = ',s); end;
2: begin s:=50*n+100*m; writeln('Дневная выручка = ',s); end;
3: begin s:=70*n+100*m; writeln('Вечерняя выручка = ',s); end;
else writeln('Ошибка ввода');
end;
end.
Пример:
t (1,2,3) = 1
n, m:
10 5
Утренняя выручка = 600
Var
a,i,k:integer;
begin
readln(a);
while a<>0 do begin
if a mod 2=0 then
k:=k+1;
a:=a div 2;
end;
writeln(k);
<span>end.</span>
Если в двоичном коде то
1101100