Var
d: integer;
begin
read(d);
writeln(24*d,' часов = ',60*24*d,' минут = ',60*60*24*d, ' секунд');
end.
<span>16384 бит / 8 = 2048 байт
2048 байт / 1024 = 2 Кб
решалось при условии по умолчанию 1Кб = 1024 байт
Если подразумевались другие сокращения, то надо было уточнять) </span>
Числа, которые удолетворяют этому условию являются високосными годами (как уже отметили ранее это числа, которые делятся на 4, но не делятся на 100 или числа, которые делятся на 400)
Если значение x записано в ячейке A1, то формула будет такой:
=ЕСЛИ(A1<=0;A1*EXP(A1);ЕСЛИ(A1<=2;EXP(A1);A1*EXP(-A1)))