Var
i, p: integer;
begin
p := 2;
for i := 3 to 7 do p:=p*i;
Writeln('Произведение равно ',p);
end.
<em><u>Тестовое решение:</u></em>
Произведение равно 5040
решением неравенста является множество {4 5 6 7}
его мощность равна 4
Переведем в начале 2^32 бит в байты.
В 1 байте 2^3 бит
следовательно
2^32 (бит)=2^32*2^(-3)=2^29 (байт)
В 1 Кбайте =1024 байт=2^10 байт
следовательно
2^29(байт)=2^29*2^(-10)=2^19 (Кбайт)
В 1Мбайте =1024 Кбайт
Следовательно
2^19(Кбайт)=2^19*2(-10)=2^9 =512 (Мбайт)
Ответ 512 (Мбайт)
Var
best, m, s,i: integer;
begin
best := 10000000;
for i:= 1 to 3 do begin
write('min sec = ');
readln(m, s);
if best > m * 60 + s then best := m * 60 + s;
end;
writeln('Лучший = ', best div 60, ' min ', best mod 60, ' sec');
end.
10110111= 167 в десятичной сист. счисления.