Var A : Integer;
Begin
Readln(A);
If Odd(A) then A:=A*5 else A:=A div 4;
Writeln(A);
end.
N=1280*960=1228800;
i=24 бита ;
V=n*i=1228800*24=29491200 бит=3686400 байт=3600 Кбайт
1101 2 = D 16
11111 2 > 0,22 8 (перевод из восьмеричную в двоичную, 0,22->0,01001)
35,63 8 < 16С 16 (перевод из восьмеричную в шестнадцатеричную, 35,63->1D,CC или 16С->554)
//прога на Pascal`e
var
N : uint64;
K : real;
begin
write ('Введите кол-во ног: ');
readln (n);
write ('Введите отношение ног жуков к паукам: ');
readln (k);
if trunc (n/(k+1)) <> n/(k+1) then write ('Неверное условие!')
else
if trunc (n/(k+1)) mod 8 <> 0 then write ('Неверное условие!')
else write ('Жуков: ', n/(k+1)*k/6, ', пауков: ', n/(k+1)/8);
end.