Пишу на QBasic
CLS
INPUT N
C=1
FOR I = 1 TO N
C=C*I
NEXT I
PRINT C
Четырехзначное шестнадцатиричное число содержит четыре двоичные тетрады, старшая (левая) из которых может быть неполной. Наименьшее число будет иметь 1 в старшей тетраде и за ней должны следовать пять нулей. Получаем:
1 0000 0111 1111(2)=107F(16)
Если вам нужно составить программу, то вот:
program znanija;
var
r,d: integer;
begin
r := 2;
d := r*2;
writeln('Диаметр окружности = ',d)
end.
16дней так как в день по 0,5в день от сюда ввывод